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Meet the Banana!" the very 
tough, versatile, portable, and 
reliable dot-matrix printer from 
Gorilla™ 

At $249.95 retail it’s an ideal 
and inexpensive companion for 
personal computers like Apple® 
(or Apple“look alikes”such as 
Franklin® or Albert®), TIf 
Commodore?TRS-80fKaypro,® 
Timexf Osbomefetc. 

After that, it’s merely com¬ 
parable to other printers that can 
cost up to three times as much: 
10” carriages (to handle standard 
9 ‘/j" paper), 80 columns, graphics 
capability, 10 characters per inch 
(expandable to 5 cpi) draft-quality 
print (for perfectly acceptable 
form letters, data processing, 


business reports, etc.) tractor 
feed (for precise alignment and 
quick loading), parallel or serial 
interface (take your pick), self- 
inking ribbon cassette (for long 
life and easy installation), 10 
portable pounds in weight, and 
compatibility with so many of the 
most popular personal computers 
on the market 

Plus its printhead features a 
unique single-hammer design that 
eliminates a lot of moving parts, to 
eliminate a lot of annoying repairs. 

That’s the Banana: silty name, 
serious service. It’s everything 
the expensive dot-matrix printers 

Except expensive. 






c 951-624. 




FOR YOUR COMMODORE WORDPROCESSING NEEDS 
INVEST IN THE BEST 



WORDPRO PLUS. IN A CLASS BY ITSELF. 
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aliens jour kids can 
reason with 
instead of destroy 




k ing them. Because given the opportunity, 

1 kids enjoy using their minds. 

It's Amazingly Fun. 

■" . The Most Amazing Thing is out there 
L somewhere. Finding it won't be easy. 
^ But relax, your kids will have the 
^ help of their old uncle Smoke Bailey. 
" :TI give them a B-liner (sort of a 
oss between a hotair balloon 
d a dune buggy) to use on their 
journey. They'll have to learn how to 
" he B-liner and navigate it through 
storms and fog. But before they do 
anything, your kids will have to talk to Old 
Smoke, tie'll tell them about the Mire People 
and the strange language that they speak, he'll 
also tell them to avoid the dangerous Mire 
Crabs and how to get fuel for the B-liner 
Your kids will visit the Metallican Auction 
where they'll trade with the aliens for valuable 
chips. Your kids will then use these chips to buy 
things they'll need for their trip. And your kids 
will learn how to fly over the planet using their 
let Dack. 


hovel Approach to Computer Games. 

Besides offering your children all of the above, 
Ih SEARCH OF THE MOST AMAZIHG THIMG gives 
them an opportunity to develop their reading 
skills. Because Included with the game is Jim 
Morrow's new novel The Adventures of 5moke 
Baile y.' So your children will have hours of fun 
reading the book or playing the game. And 
they'll be learning at the same time. 

Parental Discretion Advised. 

If you're a parent who would ra 
kids reason with aliens than dest 
you've got plenty of reasons to 
ask your local software retailer 
for IH SEARCH OF THE MOST 
AMAZIHG THIHG. It's compatible I 
with Apple,® IBM,® Atari,® and 
Commodore 64” computers. 

And It offers so much fun you'll 
probably be tempted to play it yourself. 

Or you can write us directly at 
Spinnaker Software, 215 First Street 
Cambridge, MA 02142. 

You'll find this Is one computer game that 
won't alienate you from your 
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Wfe make learning fun. 
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EDITORS NOTES 


T he recent TI announcement 
of a pending second quarter 
loss in the $100 million range 
sent shock waves through the 
consumer computer end of the 
stock market. In two days, TI 
stock dropped almost 50 points 
before beginning a gradual up¬ 
turn. What's happening out 
there in the trenches of this 
economic warfare? 

It would seem that Commo¬ 
dore is remaining profitable by 
constantly refining, redesigning, 
and maintaining rigorous in¬ 
ternal cost controls. Various 
manufacturers, including TI, 
have been pulled into the trap of 
selling computers at loss leader 
prices. The expectation (perhaps 
more accurately the fervent 
hope) then becomes that money 
will be made on the software. 
With so much competition for 
software dollars only time will 
tell, but Commodore's recent 
and aggressive software price 
cuts don't bode well for the loss 
leader philosophy. 


In Tom Halfhill's note¬ 
worthy article in this issue you'll 
discover an incredible array of 
information on the Consumer 
Electronics Show. Items of par¬ 
ticular note: Atari has completely 
revamped their computer line, 
and Coleco introduces "Adam," 
a computer package of tremen¬ 
dous significance. 

Random Bits and Rumors: 
With the advent of "Adam," we 
can expect to see new packaged 
systems to appear, most notably 
in the $500-$700 range. One re¬ 
cent concern we heard voiced 
regarding price cutting for 
computers: do people treat them 
less seriously as prices drop (e.g., 
is a $299 VIC-20 "more" of a 
computer than an $85 VIC-20)? 

It would seem that the manu¬ 
facturers will have to convey 
the message that these are power¬ 
ful, capable computers, and 
back that up with useful soft¬ 
ware. Commodore's Magic Desk 
(see Tom's article) is a good case 


in point. 

IBM's new home computer 
is still under the tightest wraps. 
We still expect it by September 
or October and still expect a price 
in the $700 ball park. There's 
always the chance that IBM will 
sit back and watch the battle for 
a while to let things shake out a 
bit, but we think not. The IBM 
home computer would appeal to 
many on name alone, and IBM's 
well aware of that. 





LAST NIGHT WE EXCHANGED LETTERS WITH 
MOM,THEN HAD A PARTY FOR 

Eleven people in Nine different States 
and Only Had to w\sh One Glass... 


That’s CompuServe, The 
Personal Communications 
Network For Every Computer 
Owner 

And it doesn’t matter what kind 



CompuServe’s multi-channel CB 
simulator brings distant friends together 
and gets new friendships started. You 
can even use a scrambler if you have a 
secret you don’t want to share. Special 
interest groups meet regularly to ' ' 




and CompuServe CompuServe connects 
with almost any type or brand of 
personal computer or terminal and 
many communicating word processors. 
To receive an illustrated guide to 
CompuServe and leam how you carl 

CompuServe 

5000Bfvd IC Corumbus°OH l 4 1 3l20 






































WordPro 3 PIus/64™ 

The Best Word Processor for your Commodore 64™ 


When choosing a Word Processor for your Commodore 64 com¬ 
puter, there’s no reason to settle for anything but the best—in a 
word... .WordPro™. 

With over 30,000 happy WordPro clients churning out letters and 
documents all over the world, the WordPro Plus™ Series is un¬ 
questionably the #1 selling software package on Commodore 
computers! So when you choose WordPro, you know you’re in¬ 
vesting in a trial-tested program that’s a real winner. And Word¬ 
Pro 3 Plus/64 is NOW available for your Commodore 64 com¬ 
puter at prices as low as $89.95. 

Designed for the novice user with no computer or word process¬ 
ing experience whatsoever, WordPro 3 Plus/64 brings a whole 
new dimension to the term “user-friendly.” More than just easy 
to use, WordPro 3 Plus/64 is a commercial level word processor 
loaded with powerful features including: Auto Page Numbering, 


Headers and Footers, Math Functions, Global Search and 
Replace, the Ability to Create Multiple Personalized Letters and 
Documents, Underlining, Boldface, Super and Subscripts and 

Best of all, WordPro 3 Plus/64’s powerful arsenal of features can 
be put to use almost immediately—by even the novice user. So 
whether you’re a writer, in business, education, or just a hob¬ 
byist, you’ll quickly become a WordPro Pro! 

Invest in the best.. .WordPro Plus. In a class by itself. 

Professional Software Inc. 

51 Fremont Street (617) 444-5224 

Needham, MA 02194 Telex: 951579 


WordPro 3 Plus/64™ is a trademark of Professional Software Inc. 

The WordPro Plus Series was designed and written by Steve Punter of Pro-Micro Software Ltd. 


Commodore 64™ is a trademark of Commodore Electronics Ltd. 








READERS’ FEEDBACK 


Tt^Hlors'and Readers of COMPUTE! 


Commodore’s Public Domain 
Software 

Several readers have written asking about the public 
domain software released by Commodore. Earlier this 
year, Commodore announced that they were making 
656 educational programs available to anyone, by 
placing them in the public domain. 

Since that time, the software has been reorganized 
and has been distributed to Commodore dealers. All of 
the programs are educational (math, English, history, 
computer science, business, etc.) and are available 
through Commodore dealers. All programs are for the 
PET or the 64. 

There are 27 diskettes available, each holding up to 
20 programs, which are individually packaged and sell 
for $6.95. Also, copies can be made at Commodore 
dealerships for a nominal cost. 

Since the programs have been placed in the public 
domain, all prices are, according to Commodore, charged 
only to offset actual disk costs or the time for dealer 
copying. None of the programs is available on tape. 


What’s RS-232? 

I am confused with all this RS-232 jargon. I have 
read the section in the VIC-20 Programmer's Refer¬ 
ence Guide, but it seems to be written for someone 
who is already familiar with RS-232. I'd like to 
interface a serial printer, and also a bar code con¬ 
centrator - that's a buffer memory which stores 
ASCII received from several bar code scanning 
stations. 


First, check COMPUTE! (August 1982). "VIC-20 
Communications/The RS-232 Interface" applies to both 
the VIC and the 64. In October, "Ask the Readers" 
gives mpre information on interfacing printer devices. 

However, neither of these references gives all the 
answers. Right now, there are users working on prob¬ 
lems associated with the "full handshake" option, which 
doesn't work at all on the VIC and which has problems 
on the 64. Until Commodore releases a new ROM to 
fix the problem on either or both machines, users must 
go after the problem themselves by using machine lan¬ 
guage programming on an interrupt level - and that's a 
complex job. COMPUTE! should soon be able to publish 
a success story on how it’s done. 


VIC Disk Details 

After reading through the VIC-1541 Disk Drive 
manual some questions arise: 

1. How can the 1541 be speed-changed for 
the VIC-20 through software if the 1541 is in 
the 64 mode to start with? Will it recognize 
such a software command if in the wrong 
speed mode? 

2. What are the considerations in using a 
second disk drive? The manual discusses 
changing the "8" drive number to another 
via software or hardware, but which is pref¬ 
erable? And would most programs one buys 
have to be modified if the drive address is 
changed? And when would one profitably 
use a second drive - main program of first 
drive and data files on another, or what? 

3. The manual briefly alludes to drive num¬ 
bers but does not explain the connection be¬ 
tween drive numbers and device numbers. Is 
there a connection, and how would a drive 
know its drive number (as opposed to its 
device number)? 

4. The 1541 manual says that you can't copy 
whole disks from one 1541 to another 1541. Is 
this really true? Is it immutable, or is there a 
way around this glitch? 

Karl Thurber 

The difference in data transfer speed between the VIC 
and 64 is not so great that the drive in its 64 mode is 
unable to understand commands sent to it by the VIC. 
In fact, the VIC can usually read programs from the 
disk without giving the "slow down" command. To 
write data reliably, however, you should always set the 
drive for the proper speed by typing: 

OPEN 15,8,15,"UI-":CLOSE 15 
When peripherals are connected to the serial bus, 
the computer must know what to call them before it can 
talk to them. If you attach two disk drives without 
changing the device number of one of them, they will 
lock up the bus in an electronic argument over which 
one has the right to call itself device 8. The simplest 
solution is to perform the hardware modification de¬ 
scribed in the manual, which changes the device number 
once and for all. The problem with this is that it's a 
little drastic for most people. The procedure for changing 






WORD PROCESSING 

SIMPLER 


Bank Street 


sor at a price you can afford. 
Here are just a few of its many 

sert and erase blocks of text, 
♦ Universal search and replace 


Writer 


at the end of each line, 


ual and a free back-up disk. 

Student approved, the en¬ 
tire system has been exten¬ 
sively tested by Bank Street 
College of Education and Intentional Educations. 

Bank Street Writer. The ground-breaking, sensible combi- 


The First Word Processor For The Entire Family. 

Hardware requirements: Apple version requires Apple II or 3.3. Atari 400/800 version requires 48K and BASIC cartridge. Both 

Apple II + with 48K and Applesoft in ROM of language card, DOS versions require only one disk drive. 


WBfoderbundSoftujafe 

( Fourth Street, San Rafael, California 94901, Telephone (415) 456-6424 









Xerox Service Centers. 
The personal computer 
back-up system you’ve 
been looking for. 




Unfortunately, most people find out the hard 
way that there’s one question even a personal 
computer can’t answer. 

Where can you take it for service? 

We have a suggestion. Come to one of our 


new Xerox Service Centers. We have 82 nation¬ 
wide. And we’re multiplying faster than soft¬ 
ware programs. 

Right now we’re equipped to handle 
Osborne™ Computers, Epson™ MX Series 
Printers, Pied Piper™ Computers, Morrow 
Designs Micro Decision™ Computers, Corona 
Data Systems Computers, Enter Sweet Pea™ 
Color Plotters, Cameo Electronics Winchester 
Disk Drives, Okidata Microline™ and Pace- 
mark,™ and Amdek™ products. In addition 
to a number of Xerox products like the 820 
Personal Computer and Diablo™ 

Printers. But in the future, we’ll be 
servicing even more brands of per¬ 
sonal computers and related 
items. 

Our service people have to 
undergo one of the toughest 
training programs in the 
industry. Including plenty of 


hands-on experience and intensive study of 
computer technology. 

Then we put them through the specialized 
courses on other brands. 

We’ve even provided a back-up system to 
our back-up system with a nationwide “hot fine” 
to our Xerox Technical Support Centers. So in 
the unlikely event your bugaboo baffles our 
local whiz, there’s extra help close at hand. 

And we keep our parts departments well 
stocked. Which means your problem can be 
fixed a lot faster than you’d imagine. 

But one of the best things about bringing* 
your equipment to us is that you get Xerox qual¬ 
ity service at a very affordable price. 

So come in and see us. Or contact the Xerox 
Five Star Service Dealer in your area for more 
information. 

Because 82 new Xerox Service Centers are 
not only a nice step forward for us. They’re a 
great system for you to fall back on. 

Visa, MasterCard and American Express 
Cards accepted. 

*Pick-up and delivery available. 

Xerox Service Centers. 



XEROX 





lowbrook Lane, (215) 431-0533. Florida: Altamonte Springs, 
lib North Lake Blvd., (305) 830-8109; Ft. Lauderdale, #502,1500 
N.W 62nd St., (305) 491-3202; Jacksonville, Unit #4,3035 
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Moines, 700 E. 4th 
St., (515) 282-8700. 
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XEROX®, 820 and Diablo* are trademarks of XEROX CORPORATION. 
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Cheektowaga, 198 Sugg Rd., (716) 634-2993; Elmsford, 
5 Westchester Plaza, (914) 592-4454; Lake Success, Suite 
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W. 8th Ave., (215) 3374486; Philadelphia, Suite H&I, 9140 
Academy Rd., (215) 331-0999 -.Pittsburgh, 601 Holiday 
Drive, (412) 921-8202. Tennessee: Memphis, Suite 
143,1835 Nonconnah Blvd., (901) 346-2211; 

Nashville, 1854 Airlane Drive, (615) 883- 
5102. Texas: Austin, #112,7950 Ander¬ 
son Square, (512) 451-6263; Dallas, Suite 
104,1625 W Mockingbird Lane, (214) 630- 
6647; Fort Wbrth, 3273 Crabtree St., (817) 626- 
8243; Houston, Suite 220,7280 Wynnwood, (713) 

862-1784; Houston, 3642 Westchase Drive, (713) 789- 
3070; San Antonio, Suite 112,2411 Northeast Loop 410, 
(512)655-0085. Utah: 

Lake City, 3697 W. 1987 
S„ (801) 973-7316. Vir¬ 
ginia: Fairfax, 2731B 
Prosperity Ave., (703) 

698-7477; Richmond, 

8707 W Broad St., (804) 

7470275; Virginia Beach, 

1448 Air Rail Ave., (804) 

464-4752. Washington: 

Renton, 266 S.W 43rd St., 

(206) 251-9155. West 
Virginia: Charleston, 

523 Central Ave., (304) 

342-8015. Wisconsin: 

New Berlin, 2995 South 
Moreland, 



the device number via software is to turn on one of the 
drives and the computer, load and run the "DISK 
ADDR CHANGE" program on the demonstration 
diskette supplied with the drive, then turn on the other 
drive (which will then be device 8). 

Since Commodore's standard device number for 
disk drives is 8, software that reads or writes to disk 
will probably make this assumption, which means that 
to use those programs without modification you'll have 
to use only the first drive. Having multiple drives be¬ 
comes profitable at the point where the convenience of 
not having to constantly switch disks becomes worth 
the cost of a second drive. The example you cited, using 
one drive for programs and the second for data files, is a 
very common one. Also, some tasks, such as duplicating 
disks, are inherently less complicated when you have 
more than one drive. 

For dual drive units such as Commodore's 4040 
and 8050, both drives have the device number 8. To 
distinguish between them, one is designated as drive 0 
and the other as drive 1. Drive numbers are not truly 
relevant to single drives (where the unit is always drive 
0); however, this feature was retained in the DOS (disk 
operating system) for the 1541 to maintain compatibility 
with the Commodore dual drives, and to leave open the 
possibility of dual drive units for the VIC and 64. 

It is possible to copy whole disks from one 1541 to 
another as long as the device number of one of them has 
been changed. A program called "COPY!ALL" by 
COMPUTE! Associate Editor Jim Butterfield, which 
copies the contents of a disk in device 8 to a disk in device 
9, is provided on the demonstration disk which comes 
with the 1541 drive. 


More On Tl Memory 

Many owners of the TI-99/4A would be interested 
in determining the exact amount of available mem¬ 
ory (in bytes). This two-line program is very simple 
and can save a lot of hair pulling when you write 
programs which fill the memory. Here is the 
program: 

STEP 1 

Enter the following: 

2 GOSUB1 

Do not use a variable that has already appeared in 
the program. For example, if you have used the 
variable "A" within the program, choose another. 
Second, the program must work correctly before 
using this mini-program. 

STEP 2 

Once this is entered into the memory, enter the 
RUN command. The process will take between 15 
and 30 seconds to execute, depending upon the 
length of your program. After execution, MEM¬ 
ORY FULL IN 1 will appear. Now enter PRINT A 
(no line number) and a value will appear on the 


screen. This value is the number of bytes re¬ 
maining in the computer's memory. 

To determine the total amount of free memory 
available, clear the memory (store your program- 
first) and repeat Steps 1 and 2. The value displayed 
will be 14536. There are 14536 free bytes available 
(the mini-program itself uses 40 bytes, so add 40 
to the 14536). The computer is advertised as having 
16K bytes. 1424 are used for screen display, etc. 
So, when a program is stored in the memory and 
you want to determine how many bytes the pro¬ 
gram used, enter the following: 

PRINT 14576-A 

Howard Patlik 


80 Columns For The Commodore 64 

The February "Readers' Feedback" discussion of 
Commodore 64 add-ons stated 80-column format 
could be achieved by use of other manufacturers' 
products, but would "require a separate video 
monitor" instead of a TV set. 

I am considering a color monitor to use with 
my Commodore 64 and will eventually want to 
use it as a word processor with 80 columns. The 
Commodore 64 will only work with a composite 
input color monitor. I am confused as to the 
capabilities of that type of monitor. Will it handle 
the 80-column format, or will I have to get an RGB 
type color monitor along with some type of inter¬ 
face converter? 

R. C. Freytag 

The good news is that composite input color monitors 
give a reasonably good display for 80-column format. 
The bad news is that, at present, the 80-column boards 
all have black and white output, so the color monitor is 
no particular advantage. Also some word processing 
programs are not designed to work with the 80-column 
add-ons, so make sure before you buy that the items you 
are purchasing will work together. 


Flashing Atari Prompt 

I was intrigued by Glenn Murray's "Flashing 
Prompt For VIC and PET" (COMPUTE!, December 
1982). It was just the thing for a number of my 
programs. It was easily adjusted for my Atari. I 
offer the re-worked program for your readers: 

10 POKE 752,1 

20 DIM A$(30), B$(30), X$(30) 

30 A$ = "PRESS ANY KEY TO CONTINUE" 

40 B$ = "{CLEAR}" 

50 X$ = A$ 

60 FOR R = 1 TO 100 

70 POKE 656,2: PR. X$: REM ***PRINTS MESSAGE 
IN WINDOW*** 

80 FOR W = 1 TO 333:NEXT W 
90 IF PEEK(764) = 255 THEN 110 





SCIENCE FICTION 




Expand your mind with innovative adventures from 
EduWare. Our Interactive Fantasies startle your 
imagination and test your intellectual resources. 

Our Interactive Simulations put you at the center of real- 
world challenges, which you must solve using scientific 
inquiry and instinct. 

Through explorations in fiction and fact, EduWare leads 



THE BEST OF BOTH FROM 


EDUWARE' 























100 IF PEEK(764)<>255 THEN RETURN :REM 
***THIS GOS. RETURNS** 

110 IF X$=A$ THEN X$ = B$:NEXT R 
120 IF X$ = B$ THEN X$ = A$:NEXT R 
Note: Line 100 returns this GOS. routine to 
the main program. When you return the first entry 
should be, POKE 764,255:PR. B$. 

Barry E. Krischer 


How To Build Your Own TI-99/4A 
Joystick Adapter 

As an owner of a TI-99/4A, I decided I wanted a 
joystick to go with it. To save time and money, I 
got the Atari pin configuration from a friend and 
TI's configuration from the TI toll-free information 
line. After that it was a simple matter of buying 
three nine-pin "D" connectors (two male and one 
female), a small box, and some wire. Following 
this wiring diagram, you can make this adapter in 
about an hour and be able to select any joystick 
from the wide variety of Atari-compatible joysticks 

Gary Cook 



Thanks for the suggestion. We built it here and it works 
perfectly. 



Extended BASIC For The 64? 

Is there an extended BASIC available for the 
Commodore 64? If so, does the extended version 
include commands for the superb graphics 
capabilities of the 64? 

David J. McKeehan 

The 64 comes with a version of Commodore BASIC 
called " Upgrade " or 2.0 BASIC. This version does not 
contain disk commands like the newer PETs, nor does it 
contain special commands for graphics as on the Atari 
or the TI with extended BASIC. 

Fortunately, there are several ways that BASIC on. 
the 64 can be improved. By plugging in cartridges, you 
can effectively increase your amount of ROM memory. 
Commodore lias plans to release a VSP (Video Support 
Package) cartridge that will add the graphics commands 
BASIC presently lacks. There are also cartridges 
available commercially that add disk commands of 
BASIC 4.0. 

Another way to extend BASIC is with programs 
that "patch" into it through a machine language pro¬ 
gram like BASIC AID 64 that will appear in an up¬ 
coming issue of COMPUTE! 

The last and most ambitious method is to make the 
ROM " invisible " and replace BASIC with another 
program running in the RAM underneath. This should 
make it possible to run languages such as Pascal or the 
new BASIC in the Commodore P128 series computers, 
without much sacrifice of RAM memory. 


Atari Assembler Graphics 

I have an Atari 800 and I'm currently using the 
Assembler Editor cartridge. I can't seem to instruct 
the computer to switch graphics modes. I've fid¬ 
dled and faddled here and there with addresses, 
but it doesn't display a mode that doesn't have 
garbage all over it. When I read the "Boing" game 
in COMPUTE! ("Insight: Atari," August 1982) I 
typed in the subroutine and it didn't work. Using 
the BASIC cartridge and calling up the program 
after a graphics call seems like a cop out. Help! 

Mark Macuirles 

For information on calling graphics modes from machine 
language, refer to "Insight: Atari" (COMPUTE!, Feb¬ 
ruary 1982). Bill Wilkinson presents a modular set of 
routines for GRAPHICS, PLOT, DRAWTO, etc. It is 
not a program, but rather a series of routines that you 
can include in your programs. 


COMPUTE! welcomes questions, comments, or 
solutions to issues raised in this column. Write to: 
Readers' Feedback, COMPUTE! Magazine, P.O. 
Box 5406, Greensboro, NC 27403. COMPUTE! 
reserves the right to edit or abridge published 
letters. © 
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INSTA 

Introducing the Insta-Series from Cimarron— Instant Productivity Software forthe Commodore 
64 Personal Computer. The Software System: Insta-Writer, Insta-Mail, Insta-Calc, Insta-Check, 
Insta-Ledger, Insta-Sched, Insta-File, and proven Word Craft Ultra 64, DTL Compiler 64, and CMAR 64 
are all available on Diskette, Casette, or Cartridge. This is a software system specifically designed 
for Your Productivity; manage information— Instantly! Call 714 662-2801 or contact the 
Commodore Dealer nearest you. Insta-Series— you're communicating with the future— Now! 



THE INSTA-SERIES IS DISTRIBUTED BY MICRO-SCI MARKETING. DMSION OF STANDUN CONTROLS. INC, 2158 HATHAWAY STRE E 
CALIFORNIA 92705 TELEX 910-346-6739. FORA 17"x22" COLOR POSTER OF "INSTA". SEND S5 (CHECK OR MONEY ORDER) TO MICRO-SCI 










Computers And Society _ 

David D Thornburg, Associate Editor 

The Continuing Evolution 
Of Languages 


Last month we discussed the ongoing Japanese 
development of a new generation of computer as 
described in The Fifth Generation, a book by Edward 
Feigenbaum and Pamela McCorduck. This ten- 
year development project promises to have a 
lasting impact on our concept of computers. While 
I didn't elaborate on the topic, I think that the 
choice of computer language to be used with these 
machines will be as important as the details of the 
machine architecture itself. It was thus interesting 
to find that the language chosen for the fifth gen¬ 
eration machines is Prolog. 

I had not heard of this language before, and I 
decided that I should check with some of my Stan¬ 
ford friends to see if they knew about it. With 
their help I was directed to an excellent guide to 
this language: Programming in Prolog, by W. F. 
Clocksin and C. S. Melish (Springer-Verlag, $16). 

There are two things that surprise me about 
this language. The first is its tremendous power, 
and the second is that it has been around since 
the early 1970s. Interestingly, Programming in 
Prolog (published in 1981) is the first book to appear 
on this language. The authors wrote the book 
while they were at the Department of Artificial 
Intelligence at the University of Edinburgh, a 
school that has long been a center for Prolog 
research. 

Prolog is used primarily for symbolic compu¬ 
tation. Many of its applications are the standard 
fare of artificial intelligence research - abstract 
problem solving, mathematical logic, under¬ 
standing natural language, and the creation and 
exploration of relational data bases. In other 
words, Prolog is being used in many applications 
for which LISP or Logo otherwise might be con¬ 
sidered the language of choice. 

Creating Facts 

To get some picture of Prolog's power, let's 
examine some program statements. One of the 
basic structures in Prolog is the "fact." A fact is 
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created in the following way. Suppose we wanted 
to express the idea that David is a friend of Pam. 
To express this in Prolog, we would write: 


We could create some more facts by entering: 

male(david). 

A fact in Prolog consists of a relationship 
followed by the objects of the relationship, sepa¬ 
rated by commas and placed inside parentheses. 
The names chosen for objects and relationships 
are totally up to the programmer, as long as the 
names of constants start with lowercase letters. 
Each complete Prolog statement must end with a 
period. 

Once a collection of facts has been entered 
into the computer, the data base can be asked to 
examine the validity of an assertion. Suppose, for 
instance, that the following facts were present in 
the system: 



We can ask a question in Prolog by typing ?- 
followed by the assertion we want to test. If we 
typed: 

?- likes) joe, money), 
the system would type: 

because there is no fact present in the system to 
confirm the validity of this assertion. If, on the 
other hand, we typed: 

Prolog would search its data base until it found 
the desired fact, at which point it would type: 


i the display screen. 



Most people are familiar with 
plain label prices. They mean sav¬ 
ings without sacrificing quality. 

Now dilithium Press, famous 
for its user-friendly computer 
books, introduces dilithium 
Software. Quality book/software 
packages at affordable prices. 

Each book is easy to read with 
lots of useful applications and 
troubleshooting hints; most con¬ 
tain complete source listings. 


And a bonus. 

You can purchase the book 
separately for around $19.95. 

But for a mere $10 extra, you can 
have the book and the software 
on diskette or cassette. 

Plus, you'll have a toll-free 
customer service number and a 
forever replacement guarantee. 

You'll find dilithium Software 
at your local bookstore or com¬ 
puter store. However, if there's 


no store near you, order directly 
from us. 

Call or write today for our 
catalog, or for more information. 
And enjoy the dilithium Software 
label—at the plain label price. 


P r < dilithium Software 

| i T ro. Box E 

w -* Beaverton, Oregon 97075 
800-547-1842 or 
646-2713 inside Oregon 
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The Fall 

Computer Collection 
At The 

Summer Consumer 
Electronics Show 


The flood continues: at least 17 new personal computers 
were introduced at the Summer Consumer Electronics 
Show in Chicago, and the end is not in sight. Among 
industry leaders, Atari made the biggest showing with 
a completely revised line, plus a radical new approach 
to software merchandising; among the newcomers, the 
strongest challenge came from Coleco. 


It's been only recently - maybe a year or two - 
since home computer shoppers have had more 
than a handful of machines to choose from. Apple, 
Atari, Commodore, Radio Shack, Texas Instru¬ 
ments. Still, people agonize over the decision. 

By this Christmas - destined to be called the 
Christmas of the Computers - there should be 30 
to 40 under-$1000 personal computers for shop¬ 
pers to sort out. Computers of almost every con¬ 
ceivable variation, from about $40 for a minimal 
2K memory machine to upwards of $1000 for a 
full-blown 64K personal computer with built-in 
modem, speech synthesizer, and double-sided/ 
double-density disk drive. 

How will people choose from this bewildering 
array of equipment? According to industry 
analysts, the majority will stick with the estab¬ 
lished leaders - Commodore, Texas Instruments, 
and Atari. "The window is closing," says one 
consultant, "for new entrants in the low-end home 


market." They expect many, if not most, of the 
new arrivals to be forced out within the next year. 
In other words, the rich will get richer as the poor 
get poorer (perhaps a misleading expression, 
given the aggressive price wars which are driving 
even the Big Three toward the corporate 
poorhouse). 

Yet, a few of the newcomers are making 
strong challenges, as evidenced by the hardware 
they displayed at the recent Summer Consumer 
Electronics Show in Chicago. In particular, the 
talk of the show was Coleco's entry into the field 
with an integrated system that includes an 80K 
computer with detachable keyboard, high-speed 
tape drive, letter-quality printer, and software, 
complete for under $600 - only $450 if you already 
own a Colecovision game machine. But no one 
was ignoring Atari, either. Atari scrapped its entire 
home computer line - including the brand-new 
but much-maligned 1200XL - in favor of a com¬ 
pletely new line of four computers and numerous 
accessories. Considering the financial problems 
dogging Atari and TI, plus the approaching entry 
of IBM into the home market, it appears that the 
next 12 months will be a make-it-or-break-it year 
even for the "established leaders." In short, no 
one can afford to sit back and rest easy. And no 

Here's a rundown of the most significant 
developments at the Summer CES: 
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TIMEX MAKES THE 
COMPUTER, 

BUT WE MAKE IT TICK 




If you own a TS-1000 or ZX-81 computer and want to bring out the power within it, you’ll want Memotech. From easier input to high 

quality output and greater memory, Memotech makes the add-ons you demand. Every Memotech peripheral _ ^ 

comes in a black anodized aluminum case and is designed to fit together in “piggy back” fashion enabling you 
to continue to add on and still keep an integrated system look. 

MEMOPAK RAM All Memopak RAMs are directly addressable, user transparent, are neither switched nor 
paged and no additional power supply is required. You can also choose the Memopak RAM which is just 
rif$t for your needs. From economy to power. 16K RAM The Memopak 16K RAM is the most 
economical way to add memory to your TS-1000. It is fully compatible with the Timex or Memotech 16K 
RAMs to provide you with up to 32K of RAM. The 16K RAM also offers additional add-on capabilities 
through its “piggy back” connection. 32K RAM The 322K Memopak enables you to execute 
sophisticated programs and store large data bases and like the 16K RAM is fully compatible with Timex’s or 
Memotech’s 16K RAMs to give you a full 48K of RAM. 64K RAM The 64K Memopak is powerful 
enough to turn your TS-1000 into a computer with capabilities suitable for business and educational use. It 
accepts such BASIC commands as 10 DIM A (9000). MEMOCALC Memocalc, our spreadsheet analysis 
software, enables TS-1000 users to perform complex number crunching routines with ease. With 
the 64K RAM a table of up to 7000 numbers with up to 250 rows or 99 columns can be specified. 

Quick revisions can be achieved by entering new data to your formula. 

MEMOTECH KEYBOARD For ease of operation, the Memotech keyboard is a high quality 
standard typewriter keyboard, with TS-1000 legends. The keyboard is cable connected to a buffered 
interface which is housed in a standard Memopak case and plugs directly into the back of the 

: TS-1000 or other Memopaks. MEMOPAK HRG The Memopak High Resolution Graphics, with 
up to 192 by 248 pixel resolution, enables display of high resolution “arcade game” style graphics 
through its resident 2K EPROM, programmed with a full range of graphics-subroutines. 

CENTRONICS PARALLEL AND RS232 INTERFACES- 

Memotech’s Interfaces enable your TS-1000 to use a wide range of 

_ compatible printers. The resident software in the units gives the 

complete ASCII set of characters. Both Memopak Interfaces provide lower case character capabilities and 
up to 80 column printing. The RS232 Interface is also compatible with modems and terminals. 

SEIKOSHA GP IOOA PRINTER The Seikosha GP 100A uses a 5x7 dot matrix printing format with 

ASCII standard upper and lower case character set. Printing speed is 30 characters/second with a_ 

maximum width of 80 characters. The printer uses standard fanfold paper up to 
9-1/2 inches wide. The GP 100A is offered as a package including cable and 

interface. Other printer packages are also 
available through Memotech. 

ORDER AT NO RISK. All Memotech 
products carry our 10 day money back 
guarantee. If you’re not completely 
satisfied, return it within ten days and we 
will give you a full refund. And every 
Memotech product comes with a six 
month warranty. Should anything be 

defective with your Memotech product, return it to us and we will repair or replace 
it free of charge. Dealer inquiries welcome, lb order any Memotech product use 

the order coupon or call our toll-free number 800 / 662 - 0949 . 

mmoTCCn 

CORPORATION 

7, 303/986-1516, TWX 910-320-2917 
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Coleco’s Adam 

By the first day of the show it became apparent 
that Coleco's new "Adam" home computer was 
the system to beat. After Coleco shattered price 
barriers by introducing an impressive grouping of 
hardware and software for under $600, Commo¬ 
dore announced a similar package deal for under 
$1000, built around its newly discounted Commo¬ 
dore 64. And Atari told The Wall Street Journal it 



Coleco's "Adam" system - the talk of the: 


could offer a comparable system with the new 
600XL and a letter-quality printer, also for under 
$600. Another competitor, newcomer Unisonic, 
even went so far as to redesign its prototype com¬ 
puter at the show - and then they stationed a pretty 
woman next to the Coleco display to pass out 
photocopied announcements. 

Just what set everybody scrambling? Adam 
definitely is a price breakthrough, even if (at this 
writing) all the design specifications are not 
finalized. Adam has 80K of Random Access Mem¬ 
ory (RAM), expandable to 144K (although it's not 
yet clear how much of this RAM is actually avail¬ 
able to the user); a Z80A chip for its Central Pro¬ 
cessing Unit (CPU), allowing CP/M compatibility; 
a 75-key, full-stroke, typewriter-style keyboard 
that detaches from the main box on a coiled cord, 
much like the IBM PC (in fact, the keyboard 
strongly resembles the IBM PC's); a very high¬ 
speed cassette tape drive which Coleco claims is 
"comparable to a disk drive," and which stores 
500K per cassette; a letter-quality daisy wheel 
printer; Applesoft-compatible Microsoft BASIC; a 
TI sound chip with three sound channels; 32 
sprites (programmable shapes for animation); 
four expansion slots; a slot for ROM cartridges 
and Colecovision games; built-in word processing 
software; two joystick controllers with keypads, 
which also can control the cursor; and even an 
arcade-style game to get you started. Buck Rogers 
Planet of Zoom. 


And yes, Coleco promises to sell the whole 
package for under $600. If you already own a Co¬ 
lecovision game machine, you can buy a func¬ 
tionally identical version of Adam that plugs into 
your unit and costs only $450. Coleco says Adam 
will be available this fall. 

Options will include an adapter for playing 
Atari VCS 2600 video game cartridges, a second 
tape drive (built into the main box with the first 
drive), an 80-column screen 
adapter, and accessories to allow 
running CP/M (Control Program 
for Microcomputers), an industry- 
standard operating system that 
allows access to thousands of 
programs, mostly business- 
oriented. 

Interestingly, Adam was one 
of three new computers at CES 
with Applesoft-compatible 
BASIC. However, Adam's inter¬ 
nal memory arrangement is 
different from the Apple's, which 
means the majority of Applesoft 
programs will not run until the 
PEEKS, POKES, and CALLs are 
translated. Also, Coleco repre¬ 
sentatives said they didn't know 
if the BASIC includes new commands to support 
features which Adam has but the Apple does not, 
such as sophisticated sound and sprite graphics. 
Other graphics seem to be the same, with 16 colors 
and a high-resolution mode of 256 by 192 pixels 
(screen dots). 

Will Coleco's Adam be a significant challenge 
to Commodore, TI, and Atari, which have tre¬ 
mendous head starts? Remember that Coleco 
proved in the past year it could crack open what 
some analysts thought was almost a closed mar¬ 
ket - the video game machines - and still make a 
strong showing despite a late entry. Expect a hard- 
charging advertising campaign to win similar 
success for Adam in the months ahead. 

Atari’s Clean Sweep 

Even Atari acknowledges it has been undergoing 
some rough times lately. Its profits have been 
seriously eroded by increased competition and by 
one of the most dramatic price wars in consumer 
history. Its image suffered when mounting losses 
prompted the company to shift manufacturing 
overseas, eliminating more than a thousand 
American jobs. And its top-line home computer, 
the Atari 1200XL, was introduced only a few 
months ago to something less than critical acclaim. 

It was immediately obvious at CES that Atari 
had decided it was time for drastic action. 

First, Atari reorganized its corporate struc¬ 
ture, consolidating the home video game and 






js the *\ selling printer interface for VIC20® and 
) Commodore 64 computers because it works. 


The “CARD/PRINT” works with all 
of these parallel printers without 
any modification to the printer: 
Epson MX-80 & EPSON MX-100 
(with or without GRAFTRAX+), 
EPSON FX-80, EPSON FX-100, 

STAR MICRONICS DP 8480, 

STAR MICRONICS GEMINI 10, 

STAR MICRONICS GEMINI 15, 
PROWRITER, C-ITOH 8510, 
STARWRITER, SMITH CORONA TP-1, 
BYTEWRITER, MPI 88, MPI 99, 

DATA IMPACT D-92, OKIDATA 80, 
OKIDATA 82, OKIDATA 83, 
OKIDATA 84, OKIDATA 92, 
OKIDATA 93, TRANSTAR 130, 
TRANSTAR 140, IDS MICROPRISM, 
IDS PRISM (IDS printers require 
IDS cable P/N 603-673-9100), 
MENNESMANN TALLY MT-160, 
MANNESMANN TALLY 1000, 

NEC 8023, AXIOM GP-100, 

TANDY CGP-115 PRINTER/ PLOTTER 
and many more. 



INCLUDES ALL NECESSARY PLUGS 
CABLES AND HARDWARE 
REQUIRES NO SOFTWARE DRIVERS 
JUST PLUG IT IN AND PRINT 
ALL FUNCTIONS ARE UNDER USER 
OR PROGRAM SOFTWARE 
CONTROL 

ADDS SEVEN NEW COMMANDS TO 
INCREASE PRINTER FLEXIBILITY 
SOFTWARE SELECTABLE ASCII 
CONVERSION AND GRAPHICS 
MODES 


NOTICE: CARDCO, Inc. is now 
offering the “PRINTER UTILITY 
PACKAGE’’ tape based program 
for use with our interface, a 
VIC 20® or a Commodore 64 and 
a Star Gemini series, and Epson 
MX or FX 80 or 100, ora 
PROWRITER printer. These 
programs include a machine 
language high-res screen 
dump, facilities to print 
Commodore graphics, and 
several sizes and styles of the 
“BANNER HEADLINE” type printing 
all for $19.95. 


See a complete line of American made Cardco Products at a computer store near you, today. 



313 Mathewson • Wichita, Kan$as67214 • (316) 267-6525 











home computer divisions. This is more than just 
a corporate shuffle. It should avoid future conflicts 
between the two entities, such as the present in¬ 
compatibility between the home computer divi¬ 
sion's machines and the video game division's 
recently announced add-on keyboard for the Atari 
2600 VCS. 

Second, Atari made a move that some indus¬ 
try analysts are labeling the most significant de¬ 
velopment of the year - a new subsidiary. Atari 
Publishing, will begin producing hit software for 
competing computers, including arch rivals Com¬ 
modore and TI. 

Third, Atari has completely restructured its 
home computer line. Its entire current lineup — 
from the four-year-old 400 and 800 to the strug¬ 
gling 1200XL - has been discarded. Atari is betting 
everything on a new line of four redesigned com¬ 
puters and an array of impressive accessories and 
peripherals. 

Fourth, Atari is acknowledging the impor¬ 
tance of support from third-party manufacturers 
and the grassroots. The new computers are de¬ 
signed to be easily and almost infinitely expand¬ 
able, and their architecture is "open" - freely avail¬ 
able to independent companies that want to make 
accessories. What's more, to assure that the new 
machines are better received on the grassroots 
level than the ill-fated 1200XL, Atari flew 15 top 
user group officers from all over the country to 
CES, all expenses paid. 

The problems of the past 12 months appear 
to have galvanized Atari, and the company is 
responding with an all-out effort to recover its 
position in the marketplace. 

The XL Series 

Atari's new XL computers range in list price from 
$199 to an unannounced top end that will be about 
$1000. Not only are they hardware- and software- 
compatible with each other, but best of all, they 
are fully compatible with the discontinued models. 
That includes almost all the new peripherals and 
accessories. 

The computers are compact, attractive, incor¬ 
porate the best features of the 1200XL plus some 
new ones, and together form a comprehensive 
product lineup: 

• Atari 600XL. The low-end computer, with a 
suggested retail of $199 that most likely will be 
discounted, comes with 16K RAM expandable to 
64K. Like all the XL computers, the 600XL has a 
rear slot with an edge connector that is a "full 
processor bus" - an extension of the main circuit 
board (motherboard). This slot is the key to the 
almost limitless expansion of the XL series. As 
detailed below, it allows almost anything to be 
added to the computers, even co-processors, as 


on the Apple. The 600XL's expansion slot accepts 
a 48K memory module that brings the computer 
up to a full 64K for about $100. This would make 
it identical in features and price to the next model, 
the 800XL, except for the lack of a monitor jack. 

Also in common with the other XL computers, 
the 600XL has built-in Atari BASIC. It has a full- 
stroke, typewriter-style keyboard with non-glare 
keycaps, a topside slot for ROM cartridges, and 
24K of Read Only Memory (ROM), which includes 
the BASIC language and operating system. 



Atari 600XL.16K RAM. 


The operating system of all the XL series com¬ 
puters appears to be nearly identical to the 
1200XL's. This means all four machines have most 
of the features introduced by the 1200XL, such as 
the HELP key, the international character set, 
self-testing, and the ability to disable ROM to 
access extra RAM underneath. For instance, dis¬ 
abling BASIC - formerly accomplished by un¬ 
plugging the separate BASIC cartridge - now is 
done by holding down the OPTION key while 
switching on the computer, or via POKEs from 
within a program. 

In addition, the XL series retains the tradi¬ 
tional Atari features, such as 256 colors, four sound 
channels, five text modes, eleven graphics modes, 
hi-res graphics of 320 by 192 pixels, programmable 
character sets, up to five sprites, separate chips to 
handle the screen and graphics, a serial port for 
adding peripherals, and so on. However, there 
are only two joystick ports instead of the usual 
four. 

• Atari 800XL. As described, basically this is a 
slightly larger, 64K version of the 600XL. At a 
suggested retail of $299, it costs the same as a 
600XL expanded to 64K, although the built-in 
memory makes it less unwieldy. The only differ¬ 
ence would be the monitor jack, absent on the 
600. Even the keyboards are identical, but they do 
differ slightly from those on the upper-end 
models, the 1400XL and 1450XLD. The lower-end 
computers have non-glare keycaps and lack the 
four special function keys (FI through F4) first 
seen on the 1200XL. 





You need more 
than ABC, BPI, MAS, 
BEC, EBS, XYZ 


Workhorse solutions 
for tough questions. 


If you have purchased a 
Commodore 64*. you will be 
pleased when you see our 
complete line of business 
software for the'64. This 


PO. Bax P, M c Kinney, Texas 75069 - (214) 542-0278 



We just made 
owning an Atari computer 
a lot more logical. 




Introducing the Rana 1000disk drive. It’s a whole new game for Atari computers. 



When Rana Systems introduced the Elite 
Series of Apple* compatible disk drives, we didn’t 
know what a tremendous impact they would make. 
It turned out to be a line so outstanding in perfor¬ 
mance, styling, capacity, and price, that it instan¬ 
taneously made us a major force in the market. 
Well, needless to say, the response was so great 
that we were forced to create the same highly ad¬ 
vanced disk drive for Atari* A disk drive that when 
coupled with Atari’s computer, could perform 
everything from accounting, financial planning, 
and stock charting, to word processing, business 
management, and letting you write your own pro¬ 
grams. Plus, we made it simple enough for a child 
to use, for learning anything from the alphabet to 
a foreign language. 

Working with a diskette 
versus playing with a cassette. 

Let’s face it. The only reason Atari made a 
cassette option to their computer was to make it 
affordable. But now you don’t have to settle for less. 
Because now you can get a diskette for your Atari 
computer which outperforms their cassette and 
costs V3 less than their disk drive. With Atari’s cas¬ 
sette you only get half the functions of a com¬ 
puter compared to what our floppy disk can give 
you. Their cassette is not only limited in the soft¬ 
ware available, but it also takes 20 times longer to 
get the information you need. And Rana’s disk 


drive offers twice the storage capacity of either 
their cassette or disk drive. 

Why even stylewise our new low profile design 
not only looks 100 times more spectacular, but it 
occupies 3 times less space. And our new Rana 
1000 also gives you a piece of its mind evety time 
you use it, because our disk drive gives you informa¬ 
tion as well as takes it. And we think that says a lot. 
The diskdrive 
that has all the answers. 

Rana offers you a myriad of features Atari 
couldn’t even conceive of. Like five electronic func¬ 
tions on the front panel that actually beep and give 
you a LED readout when touched. Our disk drive 
tells you what track you're on, and what density 
and how much information you’re storing. It lets 
you switch from a single density of 90,000 letters to 
a double density of 180,000 letters, on a single 
diskette. And, we have a write protect feature which 
protects your diskette from being erased, in fact, 
no other disk drive can offer you that. 

As you can see, it was easy to build a disk 
drive superior to Atari’s. Because for every reason 
you buy a disk drive, Rana has superior technology. 

The Rana 1000 disk drive. It brings your Atari 
computer to a higher level of sophistication for a 
price one third lower than Atari’s. So your choice 
shouldn’t even be a matter of logic. 

Just common sense. 


RanaSystems Always a step ahead of the originals. 









of The Hundreds of Reasons 
You Ought To Be A COMPUTE! 
Magazine Subscriber: 


From “The Editor’s Feedback” Card, a monthly part of our continuing 
dialogue with readers of COMPUTE!. These are responses to the question, 

“What do you like best about COMPUTE! ?” 


1 .“It is written so a beginner can read and understand it... it’s layman oriented...” 3. 
“Clear, clean layout, good presentation...” 3. “The Atari game programs...” 4.“Best 
and most information on PET...” S. “Cover to cover, and all in between...” 6. “Reviews 
of software and hardware...” 7. “Good balance of application and technical articles...” 
8.“It is the best source of info about various levels of VIC/PET/CBM machines and ap¬ 
plications...” 9. “The BASIC and machine language programs...” 10. “I like programs 
that can be typed into a computer, run, and then used right away (a program without 
bugs!)...” 11.“That it is organized well, and covers a broad range of information con¬ 
cerning Atari. Keep it up! please, I’m learning...” 13. “Table of contents listings and 
computer guide to articles is a great idea. Best magazine for personal home computer 
users...” 13. “Best I have found for VIC info...” 14. “Informative articles: ‘Secrets of 
Atari’, Game programs, especially programs that teach the reader about the Atari...” 

15. I like all the articles and programs for my computer, the PET. I’ve learned and 
found out things about it that I never even thought existed. Other magazines don’t 
have too much material for the PET and, for that reason, I find COMPUTE! invaluable...” 

16. “The up-to-date hardware reviews...” 17. “Machine language utilities for Atari...” 
18 .“Articles are terse but understandable and accurate. Utility and applications pro¬ 
gram listings very helpful...” 19. “The April, ’82 issue is my first. I am impressed that 
you not only acknowledge the VIC-20, you even have applications for it...” 30.“I really 
enjoy (since I am one) the Beginner’s Page...” 31.“The attention it gives to Atari and 
the easy-to-understand language it’s written in...” 33. “It is concerned with ex¬ 
plaining programs, not just listing them. It is the best VIC magazine I could buy...” 
33.“The new table of contents ‘Guide to Articles and Programs’ is excellent, particu¬ 
larly the indication of‘multiple computer’items...” 34.“Broad range (sophistication) 
of programs...” 35.“You don’t speak over the average user’s head...” 


Whether you’re just getting started with personal computers, or very advanced, you’ll 
find useful, helpful information in every issue of COMPUTE! Magazine. We specialize in 
supporting the Atari, PET/CBM, VIC-20, and Apple computers. Editorial coverage is 
expanding to include the TI-99/4A, the Sinclair ZX-81, and the Radio Shack Color Computer. 

Every issue of COMPUTE! brings you user-friendly articles, applications programs, and 
utilities you can type right into your computer and use. To subscribe to COMPUTE!, or to 
order a sample issue, use the attached reply card or call our toll-free number. COMPUTE!... 
We’re the resource for thousands and thousands of home, educational, and small business 
computer users. Shouldn’t you be one of them? 

1 year, twelve issue subscription: $20.00 in the US. 


Call Ton Free in the US 800-334-0868 

In HTC call 919-27S-9809 

COMPUTE! Magazine is a publication of Small System Services, Inc. 

625 Pulton Street. P.0. Box 5406. Greensboro, NO 27403. 







Atari 800XL, 64K. 


Atari says the 600XL and 800XL should be 
available by the time you're reading this. 

• Atari 1400XL. This is the model that most 
dosely resembles the discontinued 1200XL (in 
fact, one Atari spokesperson told us - in jest, 
perhaps? - that a warehouse-full of 1200XLs might 
be converted into 1400XLs). Its outward appear¬ 
ance is virtually identical to the 1200XL's in every 
detail except the one that triggered most of the 
critidsm against its late brother - the 1400XL has 
a rear expansion slot. Inside, it also adds two 
impressive new features, both built-in: a direct- 
connect modem and a speech synthesizer. 

Although the 1400XL's price was not an¬ 
nounced, sources say it will be in the $500-$600 
range. Atari says it will be available in the fall. 



Atari 1400XL, with 64K, built-in modem and speech 
synthesizer. 


• Atari 1450XLD. Topping off the new Atari 
line, the 1450XLD has all the features of the 
1400XL - including the 64K RAM, built-in modem, 
and speech - and adds a built-in, double-sided/ 
double-density disk drive. The drive stores up to 
254K per 5Vi-inch disk and is two and a half times 
faster than the current drives (which store only 
92K). A magnetically isolated disk-storage com¬ 
partment alongside the drive can be converted to 
a second drive later. Also, the new drive will rec¬ 
ognize and read the current disks (details below). 

The 1450XLD's price also was not announced. 


but should be around $1000. Atari says it will be 
available by Christmas. 

Making The Atari Talk 

The modem and voice synthesizer aboard the 
1400XL and 1450XLD are well-integrated with the 
rest of the computer. The 300-baud modem is 
handled as the "T" device (for telecommunications 
or telecomputing); the voice, as the "VI" device. 
In other words, the modem and voice are ad¬ 
dressed as easily as any other device supported 
by the operating system, such as the screen, 
keyboard, disk drive, cassette recorder, printer, 
etc. This simple BASIC program will make the 
1400XL or 1450XLD greet you with a "hello": 



Atari 1450XLD, with 64K, built-in modem, speech synthe¬ 
sizer, and double side!double density disk drive. 


As on all Ataris, the voice emanates from the 
TV speaker. The speech, created by a Votrax chip, 
is comparable to the Voicebox sold for Atari and 
Apple computers by the Alien Group. It's easily 
understood, but unmistakably a computer. 

Addressing the modem and voice as standard 
Atari devices provides great flexibility. For in¬ 
stance, an Atari spokesperson told us the voice 
can just as easily be sent through the modem. 

And the computer includes built-in software to 
operate the modem. 

Also, there are three speech modes. Notice 
line 30 above: OPEN #1,4,0,"V1:PF" opens a 
device channel to the voice in phoneme mode. 
Phonemes are the phonetic building blocks of a 
spoken language. For the best speech, words 
should be spelled phonetically. "ATARI" is 
spelled "UHTAHREE." In this mode, the com¬ 
puter ignores certain consonants which might 
confuse the synthesizer, such as C and X. For a 
"soft" C, you must use an S; for a "hard" C, a K. 
Similarly, an X is spelled EKS. The other two 
speech modes are alpha and numeric. Alpha is a 







more direct text-to-speech mode. The numeric 
mode allows voice programming in machine lan¬ 
guage. 

Interestingly, we found that hitting BREAK 
while the computer is talking does not shut up 
the voice. This has always been true of sounds 
created with the four sound channels. This may 
mean that synchronizing speech with screen 
graphics could be a relatively simple programming 
task. 

Atari’s New Peripherals 

Atari engineers must have been awfully busy for 
the past year. Besides all the new computers. 

Atari introduced a slew of new peripherals and 
accessories. Most of them work with the discon¬ 
tinued models, too. A summary: 

• Atari 1050 Disk Drive. This double-density 
drive replaces the old 810 unit. It stores 127K per 
disk. It is not double-sided, as is the 1450XLD's 
on-board disk drive, which may not be available 
separately. The 1050 is trimmer than the 810, de¬ 
signed to match the XL series computers, and it 
automatically recognizes and adjusts itself for the 
current single-density Atari disks. Thus, it is fully 
compatible with both old and new systems. It 
should be available immediately at a list price of 
$449. However, until the new double-density 
DOS III (Disk Operating System) becomes avail¬ 
able this fall, it will be shipped with the single¬ 
density DOS II. We saw a preliminary version of 
DOS III with instruction screens that could be 
summoned at a touch of the HELP key, plus a 
new option on the DOS menu called "Convert 
DOS II." Old disks can be converted to double¬ 
density with this option. 

• Atari CP/M Module. This small box adds CP/ 
M capability to any Atari computer when plugged 
into the serial port - which means it also works 
on the older models. It contains a Z80 micropro¬ 
cessor, 64K RAM, CP/M 2.2 operating system, 
switchable 40/80 column screen adapter, a serial 
port, and a monitor jack. This last feature allows 
CP/M and 80-column video even on Atari's lowest- 
priced models, the 600XL and old 400, which do 
not come with monitor jacks. Compatible with 
the 1050 and old 810 disk drives, the module brings 
thousands of (mostly business-oriented) CP/M 
programs within reach of Atari users. It should be 
available by the end of this year. The price is un¬ 
announced, but sources peg it at under $400. 

• Atari Expansion System. With this box, the 
XL series can be expanded almost without limit. 

It plugs into the rear expansion slot and thus is 
compatible only with the new computers. It adds 
two RS-232C serial ports, a Centronics-standard 
parallel port, and most importantly, eight card 
slots. The slots could accept 80-column cards, 
extra memory, RAM-based disk emulators, co- 
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processors for CP/M or IBM compatibility - almost 
anything. Atari, however, is expecting third-party 
companies to supply most of these add-ons. The 
architecture is open to everyone. (The box is the 
XL series' counterpart of the old 850 Interface 
Module, which Atari says it will continue man¬ 
ufacturing until demand dries up.) 

• Atari 1027 Printer. This amazing letter-qual¬ 
ity, 80-column printer retails for only $349. One- 
third the size of most printers, it uses standard 
typing paper, prints bidirectionally at 20 characters 
per second, and even underlines. It plugs into the 
serial port and works with the older models as 

• Atari 1030 Modem. This is a 300-baud, direct- 
connect modem that permits phone numbers to 
be dialed from the computer keyboard. The price 
has not yet been announced. 

• Atari Touch Tablet. With this pad and its 
stylus (or your fingers), you can draw pictures 
and diagrams, write script, or select menu options. 
There are two fire buttons on the tablet and another 
on the stylus. The tablet plugs into the joystick 
ports and has a drawing surface of 4V4 inches by 6 
inches. 

• Light Pen. When the 400 and 800 were first 
introduced a few years ago. Atari announced - 
and even demonstrated - a light pen. Then prob¬ 
lems cropped up and the light pen disappeared. 
Now it's back, and we saw it really work. You can 
draw and paint on the screen in different colors, 
choose from menus, and so on. No price yet, but 
Atari promises the pen will be in stores by the 
end of the year. 

• Trak-Ball, Remote-Control Joysticks. The long- 
awaited Trak-Ball operates as either a true posi¬ 
tional trackball or as a directional trackball, so it 
can substitute for an Atari joystick. The price is 
$59.95. The remote-control joysticks are jumbo 
versions of the standard Atari controllers with 
protruding antennas. A receiver plugs into the 
joystick ports. Range is about 20 feet. The price is 
$74.95 per joystick with receiver. 

The computer keyboard for the VCS also was 
displayed at the show - in early prototype stage 
(see "Atari's New Add-On Computer For VCS 
2600 Game Machine," COMPUTE!, May 1983). 

The keyboard has been slightly redesigned since it 
was first announced a few months back. Atari has 
renamed it "The Graduate" instead of "My First 
Computer." It is still planned to sell this fall for 
under $90, and some predict the VCS itself will 
drop to around $40 by then (at this writing, the 
going price is $79). 

Atari also introduced more software than we 
have room to mention, including games, educa¬ 
tional programs, graphics utilities, and the Logo 
programming language on a 16K cartridge. 


Let your Atari experience the 
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Atari Publishing 

Realizing that there can be a greater market for 
home computer software than hardware - espe¬ 
cially with the price wars going on - Atari's biggest 
software news of the show was its decision to sell 
programs for competing computers. Although 
this will help alleviate one of the problems with 
the competition that Atari cites in its advertising, 
the profits will be welcome. The new Atari 
Publishing subsidiary will sell hit games for the 
TI-99/4A, the Commodore 64 and VIC-20, the 
Apple, and the IBM PC. 

All these computers will get versions of Pac- 
Man, Centipede, Defender, Dig Dug, and Donkey 
Kong. In addition, there will be versions of Stargate 
for the VIC-20, Commodore 64, Apple, and IBM 
PC; Robotron for the VIC-20 and 64; and (licensed 
from Synapse) Shamus, Protector, Picnic Paranoia, 
and Slime for the TI. 

The games will come on cartridges for the TI, 
VIC, and 64, and on disks for the Apple and IBM. 
Prices range from $34.95 for disks to $44.95 for 
cartridges. 

Commodore Strengthens Software 

On the hardware front. Commodore was relatively 
quiet at this CES, at least compared to the 
blockbusters they dropped at the last two shows. 
No new computers were announced. A few pre¬ 
viously announced but still-to-be-introduced com¬ 
puters and peripherals were shown again, and 
one computer was dropped before reaching the 
market. 

But even when Commodore is “quiet," it is 
far from silent. Fueling the price wars further. 
Commodore chopped the wholesale cost of the 
Commodore 64 from about $360 to $200, which 
means retail prices at some outlets should be $250 
or less by mid- to late summer. 

In addition, prices on printers and disk drives 
were cut up to $100, and software prices were cut 
up to 50 percent. 

Commodore's biggest news was its efforts to 
strengthen software support for its computers. A 
beefed-up software division has been formed, 
and more than 70 new packages for the VIC-20 
and 64 were announced at new low prices. Ex¬ 
amples are Easyscript 64, a word processor for 
under $50, Multiplan, a spreadsheet for under 
$100, a small business accounting package of five 
programs for under $250, and Magic Desk I - Type 
and File, an under-$100 program that one spokes¬ 
person called "Commodore's answer to Apple's 

Magic Desk I, a cartridge for the 64, is the first 
of a series of programs aimed primarily at home 
users. The screen comes up with a picture of a 
room containing a desk, typewriter, index file, 
telephone, calculator, ledger, wastebasket, artist's 


easel, file cabinet, and a digital clock. Floating in 
the air is a hand with a pointing finger. Using a 
joystick, trackball, or "mouse" (not yet available), 
you can move the hand to point to any object in 
the room. Pressing the fire button selects that 
option. 

For instance, pointing at the typewriter and 
pressing the fire button loads a typewriter-like 
word processing program from disk. The screen 
really looks like a typewriter carriage, with margin 
stops, paper guides, and a blank sheet of paper. 
You can type a document, then return to the 
room by pressing fire. Back at your desk, you 
can file the document in the cabinet, toss it in the 
wastebasket, or do various other things. The other 
options represented by objects in the room will be 
enabled by further programs in the Magic Desk 
series. Eventually, you'll even be able to define 
your own objects in the room. 

Some other interesting software announce¬ 
ments for the 64 were six adventure games, in¬ 
cluding the popular Z ork series; Wizard of Wor, the 
first talking game using the speech module intro¬ 
duced at previous shows; Super Expander 64, a 
cartridge with extended commands for graphics 
and sound; Music Machine and Music Composer, 
which use the plug-in synthesizer keyboard an¬ 
nounced at the Winter CES; and Logo and PILOT 
languages on disk. 

The bulk of the software seemed to be for the 
64, but new VIC programs included VICroriter, a 
word processor; SimpliCalc, a spreadsheet; VICfile, 
a data base manager; Know Your Child's IQ; and 
Number Nabber, Shape Grabber, a teaching game for 
children. 

On display was the previously announced 
portable version of the Commodore 64, known, as 
the Executive 64 (formerly called the SX-100). The 
current prototype has a built-in, six-inch color 
monitor and disk drive, and is priced at $995. A 
second drive is optional. Commodore has moved 
the delivery date back to sometime this fall. 

Not on display was a new computer an¬ 
nounced at last summer's CES, variously known 
as the P Series, P128, or P-500. Intended to be a 
souped-up version of the Commodore 64, with 
128K RAM expandable to 256K, a larger keyboard, 
and sleeker styling, the P was dropped without 
official explanation. Unofficially, Commodore 
wanted to concentrate on other projects. The P is 
being transformed into an 80-column machine 
without color or graphics, and will be aimed in¬ 
stead at the small business market. Commodore 
says it may be available later this year, along with 
the closely related B and BX Series announced 
last summer. 

Texas Instruments 

Pre-show rumors were that TI would introduce 



What’s that?.... 

Why, the award-winning 









one or two new computers, possibly the TI-99/4B 
and the TI-99/8. So much for rumors. 

The 99/8, however, is said to be very near. 
Insiders say it will come with 80K RAM, built-in 
speech, and sell for roughly $500. BASIC, Forth, 
Logo, and UCSD Pascal will be the available lan¬ 
guages. The 99/4B, they say, will fall somewhere 
between the 99/4A and 99/8 in features and price. 

It could be that TI is somewhat gun-shy after 
its recent experience with the 99/2. Introduced at 
the Winter CES, the 99/2 was an economy version 
of the 99/4A without color or sound. It was de¬ 
signed to sell for $99. Unfortunately for TI, the 
ongoing price war with Commodore and Atari 
heated up a little faster than anticipated. To com¬ 
pete, TI slashed the price of the 99/4A again and 
started another rebate program. This brought the 
99/4A to under $100. Unable to cut the 99/2's price 
accordingly, TI was forced to drop the new model 
it had spent months (and millions) developing. 
Now that each one of the Big Three has been 
burned in a similar way - Atari with its 1200XL 
and Commodore with its P128 and Max Machine - 
they may be more circumspect about making 
splashy introductions of new computers. 

Although TI unveiled no new machines at 
CES, the company did introduce a 99/4A with a 
redesigned white housing. Word is the new plastic 
case is cheaper to manufacture, and that it will 
match the design of the coming 99/8. 

The most interesting TI news, though, was a 
plug-in speech and voice recognition device for the 
99/4A. Called the Milton Bradley MBX Expansion 
System, it works with ten software packages avail¬ 
able from MB and TI. We saw it used with an 
educational game for children. I'm Hiding. 
Wearing a small headset with a microphone, the 
child names an object on the screen which might 
be hiding a tiny creature. The program responds 
to these verbal commands and even talks back 
with a remarkably human-like voice. The MBX 
will be available later this year for $129. Versions 
also may be adapted for other computers. 

TI also introduced a 300-baud, direct-connect 
modem for $99; TI-Mini-Writer, a cassette-based 
word processor for $19.95; four games ( M*A*S*H , 
Sneggit, Moonmine, and Entrapment); and six edu¬ 
cational packages, including three games based 
on E.T. the Extra-Terrestrial. 

NEC Portable Computer 

The almost overnight success of Radio Shack's 
Model 100 portable computer seems to have 
caught many in the industry off guard. Watch for 
several similar computers to be introduced in the 
coming year. 

The 100's sudden success also was reportedly 
a large factor in NEC's decision to export its ver¬ 
sion of the Model 100 to the United States. The 


NEC PC-8200, still being redesigned for the Ameri¬ 
can market, looks almost exactly like the Model 
100. This is not surprising, because NEC makes 
part of the Model 100 for Radio Shack. Therefore, 
the specifications, and even the built-in programs, 
are nearly identical. 

NEC is departing a bit from the Model 100's 
design, however. Preliminary specs call for 16K 
RAM standard instead of 8K, expandable to 96K 
instead of 32K. The onboard modem found in the 
Model 100 may be removed, but a spreadsheet 
program added. The keyboard is slightly changed, 
with five special function keys instead of eight, 
and the cursor keys arranged in an efficient dia¬ 
mond pattern. As for pricing, NEC says only that 
it will be "competitive" with the Model 100. It's 
scheduled for delivery late this year. 

Unitronics Sonic 

Another interesting computer was the Unitronics 
"Sonic." Display models were early prototypes 
not yet fully functional, and this is the computer 
that was upgraded right at the show in response 
to Coleco's stunning introduction. Nevertheless, 
the Sonic has its own distinguishing features. 

It comes with 80K of user-available RAM, 
plus another 16K to support its TI graphics chip. 
The TI chip gives the Sonic 32 sprites and 16 colors. 
The Sonic also has a built-in Waferdrive, a very 
fast mass storage device that uses Exatron Stringy 
Floppy technology. A wafer the size of a business 
card can store up to 128K. A12K operating system 
and Applesoft-compatible BASIC load from 
one of these wafers each time the computer is 
switched on. 

Other features: 6502 CPU chip (the same as 
Apple, Atari, and Commodore); upper/lowercase, 
40-column screen; 70-key typewriter-style 
keyboard with 16 function keys; three sound chan¬ 
nels with music synthesis; three different expan¬ 
sion ports, one Atari-style joystick port, and a 
VIC-20-compatible serial port. In addition, the 
Sonic will come with some software, including 
Frogger, the Magic Window word processor, 
Applesoft-compatible BASIC, the operating sys¬ 
tem, and blank wafers. Unitronics says the Sonic 
will be available this fall for $400. 

Also planned are a Z80 Card Module to add 
CP/M capability, interface modules for the Atari 
2600 VCS and Colecovision game machines, the 
Unimodem, and other peripherals and software. 

Timex Computers 

Timex displayed two improved versions of the 
Timex/Sinclair 2000 introduced at the Winter CES, 
plus a completely new model, the T/S 1500. 

The T/S 2000 series computers are basically 
upgraded versions of the Sinclair ZX Spectrum, a 
popular machine in the United Kingdom. The 






















top-line T/S 2048 is a compact computer with 48K 
RAM and 24K ROM with BASIC; interface for 
standard cassette recorders; eight colors; hi-res 
graphics of 256 x 192 or 512 x 192; selectable 32- or 
64-column screen; TV and monitor output; 10- 
octave sound generator; 42-key rubber "half¬ 
stroke" keyboard (not a membrane keyboard, as 
on the T/S 1000); one-touch BASIC keyword entry; 
upper/lowercase; Z80A CPU; and two joystick 
ports. Timex also added a slot for cartridge soft¬ 
ware and a bank-switching feature that allows 
addressing even more memory. Timex says the 
T/S 2048 will be available by fall for $199.95. 

The other 2000 series computer, the T/S 2024, 
has all the same features except less memory: 24K 
RAM and 16K ROM. It costs $149.95. Both work 
with the T/S 2040 printer ($99.95) and ZX Spectrum 
cassette software. In addition, Timex is producing 
a line of software on cassettes and cartridges, 
specifically for the 2000 series, priced from $9.95 
to $29.95. 



The Timex/Sinclair 2048 with 48K RAM and hidden cartridge 
slot (beneath cover at right). 

Timex's completely new computer, the T/S 
1500, more closely resembles the ZX Spectrum, 
although it is not a color computer. It comes with 
16K RAM expandable to 32K; 8K ROM with 
BASIC; interface for standard cassette recorders; 
40-key rubber half-stroke keyboard; one-touch 
BASIC keyword entry; 32-column screen; pro¬ 
grammable character sets; 22 graphics characters; 
and 64 x 44 graphics. The price is $79.95. An op¬ 
tional interface will allow the T/S 1500 to use 2000 
series cartridges. 

Mattel Aquarius II 

Besides showing its Aquarius, Mattel revealed a 
sequel, the Aquarius II. 

Available later this year, the Aquarius II is a 
more powerful computer with 20K RAM and 12K 
ROM. Other improvements over the Aquarius 
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include a full-stroke, typewriter-style keyboard 
(without the hazardous RESET key that destroys 
programs) and extended Microsoft BASIC. All 
other features are the same as the Aquarius, except 
the Aquarius II is expandable to 64K RAM. It 
works with all Aquarius software and hardware 
introduced to date. Price will be in the $130-$175 
neighborhood. 

Mattel also displayed new accessories for its 
computers. The plug-in Aquarius Command Con¬ 
sole allows computer control of household 
appliances and security alarms. The screen draws 
a cutaway picture of the house with all electrical 
outlets. Up to 32 devices can be controlled auto¬ 
matically (in seven-day cycles) or manually from 
the computer. The Aquarius Master Expansion 
Module is a large box with room for two disk 
drives, extra memory, two cartridges, and up to 
seven other peripheral boards. The Aquarius Four- 
Color Printer has blue, red, green, and black, and 
generates 40 or 80 columns on 4Vi-inch-wide 
paper. The Aquarius Phone Modem is a 300-baud 
device that plugs into the computer's cartridge 
slot. Mattel says all four products will be available 
later this year; prices are undetermined. 

New software released for the Aquarius in¬ 
cludes a Logo cartridge; games such as Burgertime, 
Advanced Dungeons & Dragons, and Tron; and home 
management programs such as Finform (a spread¬ 
sheet) and FReform (a word processor). 

Mattel also announced Aquarius Home Ser¬ 
vices, a data base available by modem through 
the CompuServe Information Service. It will have 
a "Hints from Heloise" column, educational 
games for children, SAT college-prep drills for 
high-schoolers, electronic mail, classified ads, 
and information on Aquarius computers. 

Vectrex Computer 

This summer's award for the most unusual com¬ 
puter shown at CES must go to the Vectrex 
Graphic Computer System. Still in early prototype 
stages, it consists of an add-on computer keyboard 
for the Vectrex game machine. 

In case you're unfamiliar with the Vectrex, 
it's a unique game machine with its own built-in 
video screen. Unlike regular TV, however, the 
screen is a vector-graphics screen. TV sets use raster- 
scan screens. An example of a vector-graphics 
screen is the arcade version of Asteroids. Images 
are formed not with pixels, as on raster-scan dis¬ 
plays, but with oscilloscope lines. Some unusual 
effects can be created this way, including simu¬ 
lated 3-D. 

The Vectrex now sells for $99 to $129, and the 
computer add-on, when it becomes available, 
should cost around $100. It will have 16K RAM 
expandable to 64K, 16K ROM with BASIC, three 
sound channels, a 40-column by 15-line screen. 
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and a 6809 CPU (as in the Radio Shack Color Com¬ 
puter). A Stringy Floppy drive will be optional. 
The BASIC has special sound commands such as 
NOTE, AMPLITUDE, ENVELOPE, and NOISE. 

A light pen introduced for the game machine also 
will work with the computer. 

Another accessory may also work with this 
new computer: the new 3-D Imager. Designed for 
the Vectrex game machine, the 3-D Imager is a 
pair of heavy glasses that you wear while peering 
into the vector screen. One lens is blue, the other 
red, just like the 3-D movie glasses of the 1950s, 
except some kind of motorized disc spins in front 
of the lenses. When you look at the screen without 
the glasses, the vector lines appear to be vibrating. 
But when you look through the glasses, the lines 
are stable and the 3-D effect is incredible. Just 
imagine the games this computer could produce. 

Video Technology Computers 

Video Technology, which introduced the first 
under-$100 color computer at the Winter CES (the 
VZ-200), showed two new computers at this CES. 
Both are more advanced models: 

• Laser 2001. Standard features are 80K RAM 
expandable to 144K (16K is consumed by the 
graphics chip); 16K ROM Microsoft BASIC; 6502A 
CPU; cartridge slot; rubber half-stroke, typewriter- 
style keyboard; user-definable keys; upper/ 
lowercase; full-screen editing; 16 colors; two Atari- 
style joystick ports; 36-column text mode; 256 x 
192 hi-res graphics; four sound channels; 300-baud 
standard cassette interface; Centronics-standard 
parallel port; and a rear expansion slot. Video 
Tech says it will be available in the United States 
by January for $299. 

• Laser 3000. Standard features are 64K RAM 
expandable to 192K onboard; 24K ROM with 
Applesoft-compatible BASIC; 6502A CPU; 81-key 
full-stroke keyboard with numeric keypad and 
eight special function keys; upper/lowercase; 
selectable 40- or 80-column screen; hi-res graphics 
modes of 560 x 192 and 280 x 192; eight colors; 
four sound channels with six octaves; outputs for 
TV, composite video monitors, and RGB (Red- 
Green-Blue) hi-res monitors; Centronics-standard 
parallel interface; cassette interface; and a rear 
expansion slot. Video Tech says the Laser 3000 
will be available by January for $699. 

Optional accessories will include disk drives, 
a CP/M cartridge, an RS-232C interface, a modem, 
joysticks, and an expansion box. Video Tech is a 
Hong Kong-based company which exports its 
products to subsidiaries throughout the world. 

Royal Alphatronic PC 

Royal, known for its typewriters and printers, 
will import a Japanese-made computer to the 
United States this fall. 


Called the Alphatronic PC, it has a Z80A CPU; 
64K RAM and 32K ROM with BASIC; interfaces 
for Centronics-parallel, RS-232C, cassette, and 
system expansion; a hidden cartridge slot; CP/M 
compatibility; selectable 40- or 80-column screen; 
eight colors; an 85-key, full-stroke keyboard with 
numeric keypad and six special function keys; 
outputs for TV, composite video, and RGB moni¬ 
tors; and TRS-80-style line editing. 

One unusual feature is a high-pitched beeper 
which emits a constant tone whenever you hit 
more than one key at a time - inevitable during 
fast touch-typing. The tone does not stop until 
you press a key in the lower-left comer of the 
keyboard, or else turn off the computer. 

Accessories will include 320K slim-line disk 
drives. Royal says the Alphatronic PC will sell 
for $695. 

Tomy Tutor 

Tomy, a large toy manufacturer, introduced the 
"Tomy Tutor," a 16-bit home computer that can 
generate attractive game graphics. 

The only other 16-bit home computer is the 
TI-99/4A. The Tutor has 16K RAM expandable to 
64K; 32K ROM with extended BASIC; a rubber, 
half-stroke, typewriter-style keyboard; 16 colors; 
upper/lowercase; 256 x 192 hi-res graphics; 32- 
column screen; three sound generators with eight 
octaves each, plus a noise generator; cassette in¬ 
terface; TV and monitor outputs; and a cartridge 
slot for plug-in software. Accessories include a 
recorder, joysticks and controllers, a voice syn¬ 
thesizer, disk drive, and printer. 

Tomy says the Tutor should be available this 
fall for under $150. 

Spectra Video 

At the Winter CES, Spectra Video introduced its 
impressive SV-318 and gave COMPUTE! a peek at 
a mock-up of their forthcoming SV-328 computer. 
Working models of the SV-328 finally appeared at 
the Summer CES. 

The SV-328 should satisfy those who prefer a 
full-stroke, professional keyboard to the half¬ 
stroke, rubber keyboard on the SV-318. It also 
replaces the cursor joystick with a numeric 
keypad, has built-in CP/M capability, 80K of RAM 
expandable to 256K, and an unusually large 
amount of ROM, 48K expandable to 96K. Why so 
much ROM? Besides a super-extended Microsoft 
BASIC, it contains a word processor and a terminal 
program. 

The SV-328 shares all the other SV-318 fea¬ 
tures, such as 16 colors, 32 sprites, Z80A CPU, 
topside cartridge slot, and three-channel, eight- 
octave sound. Spectra Video says the SV-328 
should be available within a few months for 
$595. C 
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BusCard allows you to expand the 
capabilities of your Commodore 64. 

It gives you easy to use “BASIC 4” 
commands and the fast IEEE Interface 
for access to the Commodore Business 
Machines line of peripherals, including 
high capacity dual drives and hard disk 
Systems. Unlike other interfaces, 
BusCard is fully compatible with 
software. No need to buy a printer 
interface — BusCard includes a 
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The Coming Yeari 


The Predictions 
Of Industry Leaders 

John Blackford. Assistant Features Editor 


The clearest trend in the computer industry over the 
last few years has been its unpredictability and explosive 
growth. More than one company has been caught off 
base by falling prices, rapidly growing demand, or 
powerful new products - and the sight of electronics 
pundits eating their words has become a common one. 
Industry analyst Adam Osborne recently stated that a 
certain kind of powerful microprocessor might never be 
produced - on the same day that Hewlett Packard an¬ 
nounced one. Still, thinking about the future is essential 
in a field where keeping ahead is practically the key to 
survival, so we've asked some industry leaders about 
the changes they see coming this year. 



Portia Isaacson is the president of Future Computing, 
Inc., a firm that analyzes trends in the personal com¬ 
puter industry. We talked to her on the busy floor of the 
Summer Consumer Electronics Show (CES) among the 
nearly 100,000 people who flocked in to view the latest 
electronics wares. 


Like many industry observers, Isaacson believes 
that this year will see a sharp increase in unit sales 
of home computers. But competition among 
hardware manufacturers has intensified. "The 
home computer business is in its infancy," says 
Isaacson, "and very violent shifts could take 
place." Because of the uncertainty of the hardware 
market, she believes software will play an in¬ 
creasing role. Consumer choice among contending 
brands will likely hinge on the quality of the soft¬ 
ware available for a given machine. 

Not only games, but also more specialized 
software will begin to appear. "We think this is 
the year that educational software will take off," 
says Isaacson. 

As software becomes more central to com¬ 
puter sales, companies will have to scramble to 
capitalize on their available programs. Major 
manufacturers are approaching this issue from 
different perspectives: Atari by selling translations 
of its popular games for such machines as VIC, 
Apple, and 64; Commodore by developing its 
own low-cost software; and Texas Instruments by 
trying to be the sole distributor of cartridge soft¬ 
ware made for its computers. 

"I think Atari's decision to sell software for 
other machines is one of the most important stra¬ 
tegic moves in the market this year," says Isaac¬ 
son. "Atari's new computer line is also spectacu¬ 
lar-and evolutionary." The reason, she says, is 
that it incorporates new features while remaining 
compatible with previous models, and it's de¬ 
signed to permit other manufacturers to develop 
compatible products. 

Atari's willingness to support third-party 
development may indicate a trend that Isaacson 
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thinks could become more pronounced in coming 
years - standardization of the home computer. 
"We think a de facto standard for home computers 
will be the model ultimately," she says. "IBM will 
enter the personal computer business with an 
open standard.” That means other companies 
would be invited to follow that standard in de¬ 
veloping their own compatible products. 

The question, of course, is whose computer 
will become the standard. There are several strong 
contenders. IBM, which made an impressive 
showing with its personal business computer (the 
PC), is readying a smaller version for the home 
market. Atari has a strong new line, and says 
Isaacson, "the C-64 is absolutely compelling. I 
would give that every chance of surviving." 

Texas Instruments has taken a somewhat 
different approach by discouraging others from 
developing cartridges compatible with its com¬ 
puter, even to the point of taking out advertise¬ 
ments in trade papers threatening legal action 
against those who do. Isaacson feels this could 
undermine support for the computer, although 
with profit margins on hardware so narrow, soft¬ 
ware may be the only way to stay in the game. 
"Manufacturers aren't making money on the pro¬ 
duct," explains Isaacson, "so they must sell 
software." 

As home computer prices drop, more will be 
purchased by consumers who a year or so earlier 
would have bought a videogame machine. Still, 
because it takes time for any trend to develop, 
videogames are likely to remain popular in the 
near future. But eventually, "the merging of video- 
games and computers in the marketplace is now 
certain," says Isaacson. "You could not disagree 
with that after this show." 

The show saw the introduction of new com¬ 
puter products by several companies with strong 
videogame lines. (For more details, see "The Fall 
Computer Collection: The Summer Consumer 
Electronics Show" in this issue.) For example, 
Coleco - manufacturer of the ColecoVision game 
machine - introduced a very inexpensive system 
which includes the computer, joysticks, mass 
storage, and printer. The game machines can be 
upgraded into the computer (dubbed Adam), and 
all Coleco game cartridges will run on the new 
machine. 

"The Adam - Coleco's entry - is about the 
most unique thing in the show," adds Isaacson. 
"Coleco is emphasizing the utility of computers. 
They are saying that they have a nice little word 
processing package - and the videogames are an 
extra benefit." This approach makes the product's 
features easily understood by buyers. "Con¬ 
sumers and mass merchandisers need that simpli¬ 
fication," she says. 
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John C. Cavalier is the president of Atari Products 
Company, a division of Atari, Inc. this division was 
recently reorganized to include both home computers 
and videogames, a fact that underscores the company's 
commitment to the home computer market. 

"This will be the takeoff year for the computer," 
according to Cavalier. "Our statistics indicate that 
by the end of 1982, a total of two and a half million 
computers had been sold. In 1983 alone, seven to 
nine million new computers will be purchased." 

Cavalier believes the computer revolution 
really began around 1981 and that by 1986, only 
five years later, at least 29 million computers will 
be in homes and offices throughout the United 
States. With roughly 60 million families now in 
the United States, that's getting close to one com¬ 
puter for half the families in the country. 

In spite of the surge in computer sales. 
Cavalier thinks the home computer will not begin 
outselling game machines this year, though it 
may be close. 

What is the significance of this explosion in 
computer sales? For one thing. Cavalier, like Isaac¬ 
son, believes that because the competition in 
hardware is so fierce, manufacturers cannot de¬ 
pend on the computers themselves for profit. 
Instead, software will grow in importance as a 
source of revenue to computer manufacturers. 
"The software is where the profit is - not really 
hardware," he says. 

Consequently, this year Atari will increase its 
emphasis on software sales for both the home 
and educational markets. In fact, notes Cavalier, 
Atari's recent introduction of its games for other 
popular computer brands - Commodore, Apple, 
Texas Instruments, and the IBM PC - should not 
undercut sales of his company's computers, but 
will take advantage of the popularity of some of 
Atari's games. 

In the educational field. Atari signed an agree¬ 
ment with MECC, the Minnesota Educational 
Computer Consortium - an important source of 
educational programs - to offer MECC's entire 
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line of software in an Atari-compatible form. This 
should make Atari computers more attractive to 
schools, some of which have favored the Apple 
computer because of the many educational pro¬ 
grams available for it, including MECC's. 

Although Atari is broadening its software 
offerings, a strong line of hardware may still be 
the key to attracting enough users to support the 
software. Atari's new computer line underscores 
the company's effort to move away from its image 
as a producer of game machines. "Until now," 
notes Cavalier, "I'm not sure people considered 
us a serious computer company." 



Myrddin L. Jones is vice president of marketing for the 
Computer Systems Division of Commodore Business 
Machines, Inc. Formerly a senior vice president of mar¬ 
keting for North American Phillips, Jones is overseeing 
the sales efforts at Commodore at a time when optimism 
is high there. 

"Systems and software is the name of the game 
right now," according to Jones. "Less emphasis on 
kilobytes and more emphasis on software is what 
we'll see in the coming year." Whether the appli¬ 
cations are I.Q. development programs or home 
financial packages, Jones feels consumers will be 
increasingly aware of its possible uses when they 
buy a computer. 

To satisfy this new consumer awareness. 
Commodore has recently increased development 
of software for its computers and released over 70 
new programs. In addition, the software itself 
will be dropping in price. "Some of our software 
prices are being cut by half," notes Jones. 

The programs that Commodore does develop 
will include more educational and applications 
software. The company has also released more 
than 600 educational and general-interest pro¬ 
grams to the public domain and is offering these 
through retail outlets and dealers at $6.95 per disk. 

"The other trend is going to be mass mer¬ 
chandising," says Jones. In the past, computer 
manufacturers haven't always been aware of the 
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special needs of the large distributors. But in the 
months ahead, they are going to have to work 
closely with merchandisers. "Each organization 
can develop its package to suit its particular cus¬ 
tomer," says Jones. There will be more long-range 
planning, better awareness of the particulars of 
the mass market, and more contact between 
manufacturers and large distributors. 

Because Commodore is vertically integrated - 
designing and producing many of its own chips 
while also doing most of its own manufacturing - 
Jones feels it can afford to sell its products for 
less than its competitors can. "I think it will be 
the vertically integrated companies that succeed," 

With this edge, Jones feels Commodore can 
gain 30 to 55 percent of the world market for home 
computers by the end of the decade. "It's warfare 
out there," he says, "economic warfare." 

But to some extent, all manufacturers are 
facing low profits on hardware as the result of 
severe price cutting that took many companies by 
surprise. "People just can't afford to maintain the 
low profit margins," adds Jones, "so it will be a 
year of systems and consolidation. It has to be, 
because high volume alone isn't enough." 



John Victor is president of Program Design, Inc. (PDI), 
a manufacturer of educational software and games such 
as Clipper: Around the Horn in 1850. 

"This will be more a year of consolidation," says 
John Victor. "Most of the original trends were set 
back in 1981, and now we're seeing growth and 
shake-out. I don't think we will see any radical 
departures, but you will see intense competition 
and better execution on software packages." 

One trend that Victor believes may accelerate 
this year is a move into the home market by edu¬ 
cational software producers. "The home educa¬ 
tional market is coming to the fore," says Victor. 
"The trend is to go out for the home market be¬ 
cause schools don't have the money." 

Victor's company will be introducing a series 
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of multimedia programs with dearly def ined edu¬ 
cational goals, supported by books, activity work¬ 
books (for the user to fill in), and a cassette-based 
soundtrack under program control. 

However, the market is hard to predict, and 
Victor is well aware that common sense cannot 
always be trusted in a field that has seen people 
succeed seemingly by doing the opposite of what 
appears reasonable. "If the conventional wisdom 
says that you shouldn't do a certain type of soft¬ 
ware, you should probably go for it." 



Doug Carlston is president of Briderbund, a producer 
of such popular computer games as Apple Panic and 
Choplifter. 

The software market right now is maturing a little 
more gracefully than the hardware market, be¬ 
cause software hasn't suffered from the severe 
price cutting that has affected hardware manufac¬ 
turers, according to Carlston. Brdderbund, which 
started building its reputation with computer 
games, has since introduced games such as Chop- 
lifter that don't depend on shoot-em-up violence. 
Now, Brdderbund is trying to become a full-line 
software supplier, conforming to what Carlston 
sees as the trend of the marketplace. 

Recently the company introduced Bank Street 
Writer, a word-processing program for children 
that is starting to look like a hot seller. By the end 
of the year, Carlston hopes to increase sales of 
nongame software from the current 42 percent to 
around 60 percent. He would also like to support 
a broad range of computer types, rather than pro¬ 
vide software for only one or two brands. 

"People don't understand that it's becoming 
a software-driven market," he says. The hardware 
producers are cutting prices so sharply that he 
sees hardly any profit left for them. Instead, 
Carlston thinks many of these companies will 
make money by selling software. Even so, he 
says, "lots of hardware companies will get weeded 

Concludes Carlston, "There are a lot of major 
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players trying to get into this game who don't 
realize that capital isn't enough. There's still a 
lot of room in this business for the individual 
entrepreneur." 

Russ Walter, an analyst of the computer industry, 
authored the eight-volume Secret Guide to Com¬ 
puters, now in its eleventh edition. Walter gives com¬ 
puter workshops in the summer at Wesleyan University 
in Connecticut. 

Like PDI's Victor, Walter sees a growing effort in 
the coming year in educational software, espe¬ 
cially for the very young child. "There are some 
nice programs now for seven-year-olds. When 
the younger kids see them, they want something, 
too," says Walter. 

Overall, he anticipates boom times this year, 
but with some manufacturers having problems 
because of the intense competition. "Computers 
are a fad this year - that means it's going to be a 
very good year, though the fad will wear off 
eventually. At the low end of the market, I'm 
glad that the price is really dropping - now it's 
under $100 for some models." 

At that price, nearly anyone can afford a com¬ 
puter, and impulse buying becomes a factor. "The 
magic number was 600,000," he says. A lot of 
companies have sold more than that in 1983, and 
the year ahead promises even greater sales. 

Some of the companies that Walter believes 
may feel the pinch in the coming months are 
Apple, Commodore, and Timex. Although Apple 
got a jump on the personal computer market, the 
company is now caught between lower-priced 
computers with similar features and the IBM Per¬ 
sonal Computer, which has proved popular. Wal¬ 
ter also thinks that despite its impressive price - 
performance features. Commodore could have 
trouble with the 64 if there isn't plenty of software 
for it by Christmas. "It remains to be seen whether 
the software will get generated," he adds. 

Walter also believes the Timex/Sinclair 1000 - 
which led the way at the low end - could face a 
tough battle now that both the VIC-20 and TI-99/4A 
are selling for under $100. But the Timex/Sinclair 
does have some specialized applications because 
of its small size and sealed keyboard. "People on 
boats like to use it, for example," he notes. 

Despite the difficulty of predicting trends in the 
computer market, the people we talked to were notably 
consistent in their observations. Most felt that price 
cutting on hardware had nearly eliminated computer 
equipment as a source of profit. Continued growth in 
sales coupled with tough competition and possibly a 
shake-out among manufacturers was a common theme. 
And both manufacturers and software producers agreed 
that software would soon be a key area for profit, with 
educational programs growing in importance. C 
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If you’ve ever dreamed of becoming a major 
leaguer, your dream has just come true. Introduc- 
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THE BEGINNER’S PAGE 


Types Of Programs 


Let's continue with our overview of the major 
categories of personal computer programs. The 
Operating System, the Disk Operating System, 
"utility" programs, and telecommunications pro¬ 
grams all have several qualities in common, so 
we'll look at them as a group. 

The Master Control Programs 

In most home computers there are about 16000 
memory cells set aside to hold the BASIC language 
and to hold the Operating System. These cells are 
ROM memory, which means that they cannot be 
erased: you can't put new information into them, 
and they'll hold their original information even 
after you turn off the power. What kind of infor¬ 
mation is in these ROMs? 

BASIC generally occupies about 8000 cells 
(8K) and is the familiar language you use to write 
programs. The other 8K of ROM memory holds 
the Operating System (OS). This, like BASIC, is a 
special kind of program. You might think of it as 
a background program which allows the computer 
to coordinate its other activities (including BASIC 
programs). 

BASIC includes many individual machine 
language subroutines with which the computer 
can add numbers, enter REMarks into a program, 
and most of the other actions that a computer 
takes while a BASIC program is RUNning. How¬ 
ever, when a program must communicate with 
something outside - a disk drive, a cassette drive, 
a printer, or the keyboard and screen - BASIC 
asks for help from the OS. 

Body And Mind 

The Operating System's primary responsibility is 
to keep track of communications between the 
"thinking" part, the brains, of the computer and 
the outside world. The brains are BASIC itself 
and the Central Processing Unit, the chip that 
does all the calculations. Like BASIC, the OS is 
made up of many machine language subroutines. 
These subroutines have names like LISTEN, 
TALK, UNLISTEN, SCAN KEYBOARD, OPEN 
CHANNEL, and UNTALK. You can't use these 


words in a BASIC program, but whenever you 
PRINT, OPEN, GET, or SAVE, BASIC calls upon 
the OS to help coordinate and accomplish the job 
at hand. 

It might be convenient to think of BASIC as 
the computer's "mind" and the OS as the "central 
nervous system." When your consciousness 
makes a decision to eat another bite of beef stew, 
you then turn the job over to lower, unconscious 
parts of your brain. That is, your nervous system 
takes command of the movements of your arm 
and guides the fork to your plate. You're watching 
TV or talking while your personal operating sys¬ 
tem orchestrates tasks like SCAN PLATE, OPEN 
MOUTH, and so forth. 

Similarly, when you first wake up you're not 
fully conscious. Warming yourself, stretching, 
opening your eyes, and all the other preparations 
for waking are carried out in a stupor. Your ner¬ 
vous system is rousing itself, and your conscious 
mind enters the picture at the end of a series of 
preliminary events. Here are some of the things 
that the OS does in a Commodore computer when 
you turn it on: establishes the normal arithmetic 
mode; clears out a short-term memory zone; sets 
up communication channels with the keyboard, 
screen, etc.; starts the clock and clears out the 
sound chip; tests all of memory; and clears the 
screen. Then, after the OS has finished - it all 
takes about a second - control is turned over to 
BASIC. 

The Disk Unconscious 

The job performed by a disk drive - it's a high¬ 
speed, automatic library-is so complex that the 
"intelligence" required to operate it can rival the 
brains of the host computer. What the OS is to 
the computer, the Disk Operating System (DOS) 
is to the disk drive. It performs all the routine 
chores of storage, retrieval, and organizing of the 
programs or pure information (data, like an ad¬ 
dress file) on disks. The internal subroutines of 
DOS have names like ALLOCATE BLOCK, UP¬ 
DATE BLOCK MAP, FIND CHANNEL, and 
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COMPUTE! Books 


SUMMER 


19 8 3 



VIC 



* 12-95 


COMPUTE >5 First 
Book Of VIC. The essential 

and users of Commodore VIC- 

Book OfVIC features games, 
educational programs, pro- 



* 3.95 


The Beginner's Guide 
To Buying A Personal 




83 pages, paperback. 


243 pages, paperback. Spiral bound for easy access to programs. 
















































New From COMPUTE! 

’ 14.95 

ISBN 0-942386-12-4 
The Programmer's Reference Guide To 
The TI-99/4A. The comprehensive guide to the 
Texas Instruments 99/4 and 99/4A home compu¬ 
ters. Useful for everyone from beginners to experi¬ 
enced programmers. Contains instructions for 
programming in BASIC as well as over 40 ready- 
to-type-in programs for this best-selling compu¬ 
ter. The Programmer's Reference Guide includes 
chapters about using variables in files and arrays, 
high-resolution graphics, music, speech, editing 
and debugging programs, mathematical func¬ 
tions, sorting, conserving memory, and more. 
This book offers many ideas for home appli¬ 
cations, educational programs, and games. 
312 pages, paperback. Spiral bound for easy 
access to programs. 







ith many home computers selling for 
ider $ 100, it's not surprising that by 
end of 1983 there will be 12 million 
use. Many new computer buyers 
relatively inexperienced, not 
tgrammers or engineers. Many 
wcomers to computing need advice 
d instruction. That's why they turn to 
‘IMPUTE! Publications. COMPUTE! 
provides solid, but understandable, 
ormation for all types of personal com¬ 
puter users. COMPUTE! Magazines and 
COMPUTE! Books are best sellers at 
okstores and newsstands all over 
the countiy. 


COMPUTE! Publications ® 

A Subsidiary Of American Broadcasting Companies, Inc. 


Sales Dept. P.O. Box 5406. Greensboro, NC. 800-334-0868 (919-275-9809 In NC). 




































Weather 

Forecaster 

Gfeorge W. Miller 

This program enables you to make quite accurate local 
weather predictions. Written for the T/S 1000 with 
16K, versions are included for computers with Microsoft 
and modifications for Commodore, Apple, and the Color 
Computer. 


The National Weather Service uses computers 
when forecasting the weather, so why not use 
your home computer for your own local forecast? 

You will need some easily obtainable data. 
Since you don't have access to a network of re¬ 
porting stations or satellites orbiting the earth, 
about the best device available is a barometer. 
Everyone knows a falling barometer means bad 
weather is approaching, but this information 
coupled with wind direction, will allow you to 
make a fairly accurate local forecast. 

If you're able to interface with the outside 
world, you could even have a dedicated weather 
forecasting machine which can update the forecast 
as often as you like and provide a continuous 
monitor of changing weather conditions. How¬ 
ever, our concern here is to demonstrate how you 
can forecast the weather with very little effort and 
a great deal of accuracy. 

You will need a barometer, available at most 
hardware stores, and ideally some device to indi¬ 
cate wind direction, such as a weather vane. A 
less accurate, but still effective method is to use a 
compass and observe the wind yourself. 

One word of warning. This is a very long 
program and will fill 16K RAM on the Timex/ 
Sinclair. SAVE it often while you are making your 
entries. It can be very frustrating to lose the pro¬ 
gram after several hours work due to a glitch. 

This program is based on very simple, but 
sound scientific facts. In the Northern Hemis¬ 
phere, winds blow counterclockwise around a 
low pressure system, and clockwise around a 
high pressure system. So, if you stand outside, 
with the wind at your back, a low pressure system 
will be on your left. If the barometer is falling, 
this low is heading in your direction. 

The wind direction and barometric pressure, 
combined with scientific observation, indicate 


what weather 
to expect. Your T/S 1000 
can figure this out for you in a matter 
of seconds, and the program will even tell you 
what the normal weather for the month is. 

You'll have to make a visit to the local library 
for information on your local weather conditions, 
but we'll get to that in a minute. 

Let's take a look at the T/S version of the pro¬ 
gram. First you'll notice a list of variables in lines 
5 through 56. Enter them from the listing, except 
for line 10, which should read: 

This will allow enough room in memory to 
make the necessary entries in the later portions of 
the program. We'U change this to a larger DIMen- 
sion before we're finished. 

Line 59 will GOSUB 2000, which displays the 
title block and gives some preliminary instructions. 

After displaying the title and instructions, 
line 2075 advises us to "PRESS ANY KEY TO 
CONTINUE". There is no input statement fol¬ 
lowing, only the command PAUSE 40000. The 
way ROM is organized, any number following 
PAUSE that is greater than 32,767 causes the pro¬ 
gram to halt and wait for any key to be pressed. 
Pressing any key causes the program to drop 
through to line 2085. We're using the pause this 
way so that any user has a chance to read the mes- 












sage completely. 

Line 2090 RETURNS us to the main program 
at line 60, and lines 60 to 95 print the menu. 

Optional Extras 

If you want to dress up your program a little, use 
the graphics mode to print the inverse form of the 
letter for each command, but be sure to use the 
regular mode for the letters in lines 105 to 125 to 
satisfy the argument for Y$. Otherwise, you'll 
find the menu becomes clumsy as you must shift 
to the graphics mode for every command entry. 

The menu offers a lot. For example, you can 
store data in RAM, generate a weather forecast, 
display the data you have stored, display normal 
conditions for your area, STOP the program, 
search for a specific date, and make corrections. 

Now we're ready to begin working on our 
data file. Line 143 checks to see if there is any 
room left in the file. If L = 190, you have stored 
data for 190 days in the file, and any additional 


data will generate an error. When you do reach 
this point, SAVE the data and program on tape if 
you want to refer to it later, or just enter RUN. 
RUN will clear all of your variables, and you can 
start over. To use your data file in this program 
you must start the program by entering GOTO 59. 

The raw data is stored in string variables, in 
this case A$(X), with all the data held in one vari¬ 
able. A$ is a two-dimensional array, which will be 
190 entries long, and will hold 31 characters in 
each entry. A$(X,1 TO 2) holds the number of the 
month; A$(X,3 TO 4) holds the number of the 
day; and A$(X,5 TO 6) holds the year. 

High and low temperatures are entered as 
four characters, such as + 076. In order to avoid 
the necessity of right justifying, each entry must 
have four characters. High temperature for each 
entry is stored in A$(X,7 TO 10) and the low tem¬ 
perature is stored in A$(X, 11 TO 14). 

The barometric pressure is stored in A$(X,15 
TO 19) as five characters, for example, 30.18. 


Notes To Weather 
Forecaster 

(Microsoft Version) 

Patrick Parrish, Programming Assistant 

The Microsoft Version (Program 2) of Wea¬ 
ther Forecaster will run with minor modifi¬ 
cations on the 64, all PETs (40- or 80-column 
screens) with at least 16K of memory, the 
Color Computer, and the Apple. Programs 
3, 4, and 5 are the necessary data storage 
routines to be typed in with Program 2 de¬ 
pending on which computer you have. 

Commodore 

If you are programming the 64 or 32K PET 
(you can try it with a 16K VIC, but you'll 
need to reformat the display for 22 columns), 
type in Programs 2 ahd 3. With the 16K PET, 
DIMension A$ in line 100 to 150 rather than 
365. Each day of weather data is stored in 
A$(I), so with the 16K PET, you will only 
have enough memory to store data corres¬ 
ponding to 150 days under one file name. 

Program 3 is written to accommodate 
either a disk or cassette data file. The sub¬ 
routine within Program 3 beginning at line 
3100 is used to detect disk errors: When a 
disk error is encountered, line 3103 will dis¬ 
play four parameters: error number, error 
description, track accessed, and sector ac¬ 
cessed. If a disk error does occur and you 
can resolve it, return to the main program 
menu by typing: 


To avoid a "file not found" error, be sure 
that you have previously saved the data file 
before you attempt to recall it. 

TRS-80 Color Computer 

If you have a Color Computer with at least 
16K, you will need to make three changes to 
Program 2. First, replace PRINT"{CLR}" 
with CLS in lines 17 and 2010. Also, DIMen¬ 
sion A$ in line 100 to 150. Of course, this re¬ 
serves space in memory for only 150 days of 
data. You may vary this limit depending on 
the memory available. You can use another 
weather file when you exceed the limit. 

Program 4 is the data storage routine for 
the Color Computer. Type it in along with 
Program 2. Program 4 only lets you save or 
load the weather data to or from cassette. If 
you own a disk drive, you can easily modify 
this routine by reading about data files in 
your disk drive manual. 

Apple II / Apple II Plus 

If you are using an Apple, Program 2 should 
be typed in with the data storage routine 
(Program 5). Two changes are necessary in 
Program 2. Lines 17 and 2010 should read 
HOME rather than PRINT"{CLR}". 

Program 5 is the data storage routine for 
use with the Apple disk drive. It contains a 
disk error trapping routine (line 3200) giving 
you the disk error number and the line in the 
program where it has occurred. If a disk error 
occurs that you can correct, return to the 
main program and re-SAVE the data so that 
no data is lost. 
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ARCADE STYLE GAMES 

• Pakacuda* 

• Centropods* 

• Ape Craze* 

• Escape MCP* 

• Logger' 

• Supercuda' 

• Firing Line' 

• Pegasus 
Odyssey* 


EDUCATIONAL 

• Sketch & Paint* 

• Gotcha Math* 

• Alphabet Tutor* 

• English Invaders" 

• Math Invaders 

• Tutor Math 
Series* 

And Many More 


On Shelves Everywhere • 

Ask For Comm*Data 


Dealer Inquiries Welcome. 


□□mm * data 

EDmPUTER HOUSE, HIE 



General weather conditions are entered into 
A$(X,20) from the following table: 

1 = FAIR 

2 = CLOUDY 

4=SNOW 

5 = THUNDERSHOWERS 

6 = SNOW FLURRIES 


are necessary, go back and change line 10. You 
must first delete the entry, enter RUN, and then 
make whatever changes are needed. 

Program 1: Weather Forecaster - 
Timex/Sinclair Version 

(Note: Underlined characters should be typed in 
inverse video.) 


Line 235 prompts for precipitation amounts. 
This must be a five-character entry (such as 02.75), 
and is stored in A$(X,21 TO 25). 

Snowfall amounts are two characters stored 
in A$(X,26 TO 27). 

Wind direction is stored in A$(X,28 TO 31) as 
a four-character entry with the first two characters 
being the wind direction from the following table: 

02 = NE 06 = SW 

03 = E 07= W 



10 DIM A?(190,31) 
15 DIM B?(l,8) 

20 DIM C$ (1,4) 

25 DIM D$ (1,4) 

30 DIM E$(1,5) 

35 DIM PS(1,1) 


The last two characters are wind speed and 
are entered as part of the code called for in line 
285. Your entry would look like "0705" for a wind 
from the west at 5 miles per hour. 

Lines 300 to 350 print out your data entries 
and ask if all is correct. If an error is found, line 
360 restarts the entry process at line 135. 

Lines 355-740 contain more inputs, calcula¬ 
tions, and the forecasting results of your input. 
Line 750 returns to the main menu. 

You'll have to determine the average temper¬ 
atures, rainfall, and snowfall amounts for your 
area. A good source of this information is The 
Weather Almanac, edited by James A. Ruffner and 
Frank E. Bair, published by Avon Books. It's avail¬ 
able from most libraries. Look up the city nearest 
you and make your substitutions in lines 940 to 
1025. 



The subroutine starting in line 3000 allows 
you to check the weather conditions on any day 
in your file. You enter the date in question, and 
the computer searches for that date. If the date is 
in memory, lines 3066 to 4000 will display the 
information. 

When it's necessary to make a correction, 
lines 5005 to 6010 find the date in question and 
prompt for the correct information. Line 6005 
assigns the value of N to X, and the information 
you've just entered is placed into the file in place 
of the incorrect information. 

Now go back to line 10. Change your state¬ 
ment to DIM A$(190,31) and enter RUN to estab¬ 
lish and reserve space in RAM for your file. From 
now on, be sure to start your program with a 
GOTO 59, not RUN. RUN clears all variables, so 
you'll lose your file in RAM. 

The program takes about 7 minutes to load 
from tape and it will use all 16K. If any changes 





140 PRINT"111 SPACES}DATA UPDATE" 

144 IP L=190 THEN PAUSE 40000 

145 IF L=190 THEN GOTO 60 

150 PRINT"ENTER DATE (AS 12-30-82):" 

155 INPUT B$ (1,1 TO 8) 

158 LET L—L+l 

160 FOR X=L TO 190 

165 LET A?(X,1 TO 2)=B$(1,1 TO 2) 

170 LET A$(X,3 TO 4)=B$(1,4 TO 5) 

172 LET A$(X,5 TO 6)=B$(1,7 TO 8) 

175 PRINT"ENTER HIGH TEMPERATURE (AS +076 
180 INPUT C$(1,1 TO 4) 

185 LET A$(X, 7 TO 10)=C?(1,1 TO 4) 

190 PRINT"ENTER LOW TEMPERATURE (AS -006) 
195 INPUT D$(1,1 TO 4) 

200 LET A$(X,11 TO 14)=D$(1,1 TO 4) 






If you are serious about personal finance... 


























AND C<=8 


205 PRINT"ENTER BAROMETER (IN INCHES)" 
210 INPUT E$(l,l TO 5) 

215 LET A$(X,15 TO 19)=E$(1,1 TO 5) 

220 PRINT"ENTER GENERAL WEATHER CONDITIO 
N",,"1=FAIR", # "2=CLOUDY" f ,"3=RAIN" 
223 PRINT,"4=SNOW",,"5=THUNDERSHOWERS", 
"6=SNOW FLURRIES",,"7=HEAVY RAIN" 

225 INPUT F$(1,1) 

230 LET A$ (X,20)=F$(1,1) 

235 PRINT"ENTER PRECIPITATION (INCHES)" 
240 PRINT"AS: 02.75" 

245 INPUT G$(1,1 TO 5) 

248 LET A$(X,21 TO 25)=G$(1,1 TO 5) 

250 PRINT"SNOWFALL AMOUNT (AS 07)" 

255 INPUT H$(1,1 TO 2) 

258 LET A$(X,26 TO 27)=H$(1,1 TO 2) 

260 CLS 

265 PRINT"ENTER WIND DIRECTION AND SPEED 

270 PRINT"USE THIS CODE:","01=N",,"02=NE 
",,"03=E",,"04=SE",,"05=S",,"06=SW" 
273 PRINT,"07=W",,"08=NW" 

275 PRINT 

280 PRINT"ENTER DIRECTION AND SPEED","AS 
FOUR DIGIT NUMBER ""0312""" 

285 INPUT I$(l,l TO 4) 

290 LET A$(X,28 TO 31)=I$(1,1 TO 4) 

295 CLS 

300 PRINT"DATE: "?A$(X,1 TO 6) 

305 PRINT"HI TEMP: ";A$(X,7 TO 10) 

310 PRINT"LO TEMP: ";A$(X,11 TO 14) 

315 PRINT"BAROMETER: ";A$(X,15 TO 19) 

320 PRINT"CONDITIONS: ";A$(X,20) 

330 PRINT"PRECIPITATION: ";A$(X,21 TO 25 

335 PRINT"SNOWFALL: ";A$(X,26 TO 27) 

340 PRINT"WINDS: "?A$(X,28 TO 31) 

342 PRINT"USE THIS CODE:","01=N",,"02=NE 
",,"03=E",,"04=SE",,"05=S",,"06=SW" 

343 PRINT,"07=W",,"08=NW" 

350 PRINT " IS THIS CORRECT? " 

355 INPUT Z$ 

360 IF Z$="N" THEN GOTO 135 


370 IF Z$="Y" THEN CLS 
375 IF X$="Y" THEN GOTO 65 
380 CLS 

385 PRINT"{8 SPACES}FORECAST" 

390 PRINT"ENTER BAROMETRIC PRESSURE:" 

395 INPUT A 
400 PRINT 

405 PRINT"IS BAROMETER: ","1. STEADY",," 
2. SLOW RISE",,"3. RAPID RISE" 

406 PRINT ,"4. SLOW FALL",,"5. RAPID FAL 

407 PRINT"RAPID CHANGE IS ANY CHANGE 
IN EXCESS OF 0.06 PER HOUR." 

415 PRINT 

420 PRINT"WIND FROM:" 

425 PRINT,"1=N",,"2=NE",,"3=E",,"4=SE",, 
"5=S",,"6=SW",,"7=W",,"8=NW" 

430 INPUT C 


435 IF A>=30.2 AND B=4 AND 0=6 AND C<=8 
THEN GOTO 625 

THEN GOTO 620 
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445 

450 


465 

470 

475 


485 

490 

492 

493 

494 

495 

500 

505 

600 

601 

602 

605 


607 

610 

616 

617 





AND 0=6 
AND 0=6 AND C<=8 
AND 0=6 AND C<=8 
AND 0=6 AND C<=8 
AND (C=4 OR C=5) 
AND (C=4 OR C=5) 



AND (C=3 OR C=2) 
AND (C=3 OR C=2) 


THEN GOTO 685 
AND C<=4 AND 0=2 

AND C<=4 AND 0=2 



PRINT "FAIR TODAY, RAINY AND WARMER" 
,"WITHIN 48 HOURS" 

PAUSE 40000 


PRINT "WARMER, RAIN WITHIN 18 TO 24" 
,"HOURS" 

PAUSE 40000 



650 PRINT "IN SUMMER WITH LIGHT WINDS: " 
,"RAIN MAY NOT FALL FOR SEVERAL","DA 

651 PRINT "IN WINTER: RAIN WITHIN 24 HOU 












PAUSE 40000 


653 GOTO 60 

655 PRINT "IN SUMMER RAIN LIKELY WITHIN" 
,"12 TO 24 HOURS" 

656 PRINT "IN WINTER: RAIN OR SNOW WITH 
INCREASING WINDS" 

657 PAUSE 40000 

658 GOTO 60 

660 PRINT "RAIN FOR NEXT DAY OR TWO" 

662 GOTO 60 

665 PRINT "RAIN, WITH HIGH WINDS FOLLOWE 
D","WITHIN 24 HOURS BY CLEARING " 

666 PRINT "AND TURNING COLDER" 

667 PAUSE 40000 

668 GOTO 60 

670 PRINT "CLEARING WITHIN A FEW HOURS," 
,"FAIR FOR NEXT SEVERAL DAYS" 


672 GOTO 60 

675 PRINT " SEVERE STORM WARNING ","WINDY, 

WITH RAIN OR SNOW IMMINENT" 

676 PRINT "FOLLOWED WITHIN 24 HOURS BY", 
"CLEARING AND COLDER" 

678 GOTO 60 

680 PRINT " SEVERE STORM WARNING ","SEVERE 


681 

682 

685 



SCROLL 
PRINT A$(T) 
SCROLL 


{4 SPACES}0.0" 

990 PRINT "O 67 45 56{3 SPACES}2.82 
{4 SPACES}0.1" 

995 PRINT "N 53 35 44{3 SPACES}2.66 
{4 SPACES} 2.1" 

1000 PRINT "D 40 25 33{3 SPACES}2.94 
{4 SPACES}7.7" 

1005 PRINT 

1010 PRINT "YR 63 43 53 37.96" 

1020 PRINT "DATA FROM NWS HBG.,PA." 

1025 PRINT "{11 SPACES}ELEVATION 338 FT. 

1030 PAUSE 40000 


2000 CLS 

2001 FOR 1=1 TO 10 

2002 PRINT 

2003 NEXT I 

2005 PRINT "{8 SPACES} WEATHER ANALYSIS " 

2040 PAUSE 400 

2055 PRINT "THIS PROGRAM IS DESIGNED TO" 
,"STORE A LIMITED AMOUNT OF DATA" 

2056 PRINT "IN THE FILE PORTION OF THE", 
"PROGRAM. IT IS SUGGESTED" 

2057 PRINT "THAT FOR STORAGE OF MORE THA 
N ","SIX MONTHES A WEATHER FILE BE" 

2058 PRINT "MAINTAINED." 

2060 PRINT 

2065 PRINT "THIS PROGRAM WILL OFFER A"," 
FORECAST OF EXPECTED LOCAL" 

2066 PRINT "WEATHER CONDITIONS, USING"," 
BAROMETRIC PRESSURE AND WIND" 

2067 PRINT "DIRECTION",,,,"YOU WILL BE S 
URPRISED AT" 

2068 PRINT "THE ACCURACY OF THIS METHOD, 
","YET IT IS BASED ON SOUND" 

2069 PRINT "SCIENTIFIC PRINCIPLES." 

2070 PRINT 

2075 PRINT " PRESS ANY KEY TO CONTINUE " 


2080 PAUSE 40000 


905 PRINT "{6 SPACES} WEATHER NORMS " 
925 PRINT 

930 PRINT "{6 SPACES}TEMP 
935 PRINT "{2 SPACES}HI LO MO{2 SPAC 
AIN{3 SPACES}SNOW" 

940 PRINT "J 38 23 30{3 SPACES}2.83 
{4 spaces! 

945 PRINT "F 41 
{4 SPACES}9 
950 PRINT "M 51 
{4 SPACES}6 
955 PRINT "A 64 
{4 SPACES}0 
960 PRINT "M 75 
{4 SPACES}0 
965 PRINT "J 83 
{4 SPACES}0 
970 PRINT 
975 PRINT "J 87 
{4 SPACES}0 
980 PRINT "A 85 
{4 SPACES}0 
985 PRINT "S 78 


41{3 SPACES}3. 


52 63{3 SPACES}3.61 
0 " 

61 72{3 SPACES}3.61 
0 " 

65 76{3 SPACES}3.61 
63 74{3 SPACES}3.76 
67{3 SPACES}3.21 



3020 LET C$(l,l 
3025 LET C$(1,3 
3030 FOR A=1 TO 



3040 NEXT A 


2)=B$(1,1 TO 2) 
4)=B$(1,4 TO 5) 


0=A$(A,1 TO 4) THEN G 


3045 PRINT " DATE NOT FOUND " 


3046 PAUSE 40000 


3050 CLS 


3066 PRINT "DATE: ";A?(A,1 TO 6) 

3070 PRINT "HI TEMP: " ; A$ (A, 7 ..TO 10) 
3075 PRINT "LO TEMP: ";A$(A,11 TO 14) 
3080 PRINT "BAROMETER: ";A$(A,15 TO 19) 
3085 PRINT "CONDITION: ";A$(A,20) 

3090 PRINT "PRECIPITATION: ";A$(A,21 TO 















392 IF C=1 THEN RETURN 
395 GOTO110 

401 PRINTTAB(12)"FORECAST"sPRINT:PRINT"] 


410 PRINT SPRINTSPRINT"IS BAROMETER ?"sP 
INT"1.STEADY"TAB(16)"2.SLOW RISE" 

411 PRINT"3.RAPID RISE"TAB(16)"4.SLOW F 


F 0.06 P 


"sPRINT"1= 


413 PRINT"EXCESS 

UTB$sB=VAL(B$)sIFB$=""THE 
417 GOSUB17 SPRINT"WIND FROMs 

4is Print"5^sw"spFint"7=w", "Snw" 

425 INPUT C$sC=VAL(C$) slF C$="'" - 
{2 SPACES}THEN 110 

430 IFA>=30.2ANDB=4ANDC>=6ANDC<=8THEN625 
440 IFA>=30.2ANDB=1ANDC> =6ANDC <=8THEN6 20 
445 IFA>=30.1ANDB=1ANDC>=6ANDC<=8THEN600 
450 IFA>=30.1ANDB=3ANDC> =6ANDC< =8THEN605 
455 IFA>=30.1ANDB=4ANDC>=6ANDC< =8THEN610 
460 IFA>=30.1ANDB=5ANDC> =6ANDC< =8THEN615 
465 IFA>=30.1ANDB=4AND(C=40RC=5)THEN630 
470 IFA>=30.1ANDB=5AND(C=40RC=5)THEN6 3 5 
475 IFA>=30.1AND B=4ANDC>=2ANDC<=4THEN64 
0 

480 IF A>=30.1ANDB=5ANDC>=2ANDC<=4THEN64 
5 

485 IFA>=30.1ANDB=4AND(C=20RC=3)THEN650 
490 IFA>=30.1ANDB=5AND(C=20RC=3)THEN655 

492 IFA<=29.8ANDB=5ANDC>=1ANDC<=3THEN680 

493 IFA<=29.8ANDB=5ANDC>=3ANDC<=5THEN675 

494 IF A<=29.8ANDB=3THEN 685 

495 IFA<=30.1ANDB=4ANDC>=2ANDC<=4THEN660 
500 IFA<=30.1ANDB=5ANDC> =2ANDC< =4THEN665 
505 IFA<=30.1ANDB=2AND(C=50RC=6)THEN670 

600 GOSUB7SPRINT"FAIR, LITTLE CHANGE IN 
TEMP"sPRINT"FOR NEXT DAY OR "? 

601 PRINT"TWO."sGOTO 690 

605 GOSUB7sPRINT"FAIR TODAY, RAINY AND W 
ARMER"sPRINT"WITHIN 48 HOURSsG0T06 
90 

610 GOSUB7sPRINT"WARMER, RAIN WITHIN 24 
TO 36"sPRINT"HOURS."sGOTO690 
615 GOSUB7sPRINT"WARMER, RAIN WITHIN 18 
TO 24"sPRINT"HOURS."sGOTO690 
620 GOSUB7sPRINT"CONTINUED FAIR WITH LIT 


651 PRINT"DAYS."sPRINTsPRINT"IN WINTERS 
RAIN WITHIN 24 HOURS."sGOTO 690 

655 GOSUB7 sPRINT"IN SUMMERS RAIN LIKELY 
WITHIN"sPRINT"12 TO 24 HOURS." 

656 PRINT s PRINTTAB(4)"IN WINTERS RAIN OR 

SNOW WITH"sPRINT"INCREASING WINDS." 

657 GOTO 690 

660 GOSUB7 s PRINTTAB(3)"RAIN FOR NEXT DAY 
OR TWO."sGOTO 690 

665 GOSUB7sPRINT"RAIN WITH HIGH WINDS FO 
LLOWED"sPRINT"WITHIN 24 HOURS BY "? 

666 PRINT"CLEARING AND"sPRINT"COOLER TEM 
PERATURES."sGOTO690 

670 GOSUB7sPRINT"CLEARING WITHIN A FEW 
{2 SPACES}HOURS."sPRINT"FAIR FOR NEX 
T SEVERAL"; 

671 PRINT" DAYS."sGOTO690 

675 GOSUB7sPRINT"SEVERE STORM WARNING. 

{2 SPACES}WINDY, "sPRINT"WITH RAIN O 
R SNOW "? 

676 PRINT"IMMINENT FOL-"sPRINT"LOWED WIT 
HIN 24 HRS BY CLEARING" 

PRINT"AND COLDER."sGOTO690 
IF A>=30.1ANDB=5ANDC> =2ANDC< =4THEN64 


S TEMPERATURE." 


621 PRINT"NO CHANGE I 
0690 

625 G0SUB7sPRINT"FAIR AND WARMER FOR NE 
T 48"sPRINT"HOURS."sGOTO 690 
630 G0SUB7 s PRINTTAB(3)"RAIN WITHIN 24 H 

635 G0SUB7sPRINT"WINDY, WITH RAIN WITHI 
12 TO"sPRINT"24 HOURS.";GOTO690 
640 G0SUB7 s PRINTTAB(3)"RAIN IN 12 TO 18 
HOURS."sGOTO 690 

645 G0SUB7sPRINT"WINDY AND RAIN WITHIN 


1 T06sPRINTsNEXTIsGOSUB 2 


1 D=1sIF L=0THEN 708 

3 X=Ls F0RI=1T0XsL=Is GOSUB365 s PRINT sINP 
UT"INPUT C TO CONTINUE "?C$ 

5 IF C$<>"C" THEN I=X 

6 PRINT sNEXTIsL=Xs D=0 s G0T0110 

8 D=0sPRINT"NO DATA FOUND."sFORT=lTO20 
00 sNEXTT s GOTO110 
0 GOSUB 17 

2 PRINT s PRINTTAB(9)"WEATHER NORMS" 

5 PRINT s PRINTTAB(4)"TEMP" 

0 PRINTTAB(2)"HI LO M0{2 SPACESjRAIN 
{3 SPACES}SNOW" 

5 PRINTS PRINT"J 38 23 30{2 SPACES}2.83 
{3 SPACES}9.1"sPRINT"F 41 24 32 
{2 SPACES}2.70{3 SPACES}9.6" 

0 PRINT"M 51 31 41{2 SPACES}3.19 
{3 SPACES}6.5"s PRINT"A 64 42 53 
{2 SPACES}3.02{3 SPACES}0.3" 

0 PRINT"M 75 52 63{2 SPACES}3.61 
{3 SPACES}0.0"sPRINT"J 83 61 72 
{2 SPACES}3.61{3 SPACES}0.0" 

5 PRINTsPRINTsINPUT"INPUT C FOR REST O 
F YEAR";C?sGOSUB 17 

7 PRINTTAB(2)"HI LO MO{2 SPACES}RAIN 
{3 SPACES}SNOW" 

3 PRINTS PRINT"J 87 65 76{2 SPACES}3.61 
{3 SPACES}0.0"sPRINT"A 85 63 74 

[2 SPACES}3.76{3 SPACES}0.0" 

3 PRINT"S 78 56 67{2 SPACES}3.21 
{3 SPACES}0.0"sPRINT"O 67 45 56 
{2 SPACES}2.82{3 SPACES}0.1" 

5 PRINT"N 53 35 44{2 SPACES}2.66 
{3 SPACES}2.1"sPRINT"D 40 25 33 
{2 SPACES}2.94{3 SPACES}7.7" 

3 PRINTS PRINT"YR 63 43 53 37.96 35.4" 

3 PRINT:PRINTTAB(2)"DATA FROM NWS HBG. 



,P.A.":PRINTTAB(2)"ELEVATION 338 FT. 

980 PRINTsGOSUB 2500:GOTO 110 

1250 GOSUB 17 

1251 PRINT:PRINTTAB(8)"SEARCH DATE":D=1 
1260 PRINT:PRINT:PRINT"ENTER DATE TO FIN 

D:":P$="(AS 01-05-53) " 

1265 B=8:GOSUBr0:C$=LEFT$(B$,2)+MID$(B$, 


1273 IF FL=1 THENFL=0:L=X:GOSUB2500:GOTO 
110 

1275 NEXT I:PRINT:PRINT"DATE NOT FOUND": 

GOTO 690 
.500 GOSUB 17 

505 PRINTTAB(11)"CORRECTIONS":C=1 
510 PRINT"ENTER DATE TO CHANGE:":P$="(A 
S 01-05-83) " 

512 B=8:GOSUB10:C$=LEFT$(B$,2)+MID$(B$, 

570 X=L:FORI=lTOL:IFC$=LEFT$(A$(I) ,4)TH 
ENFL=1:T=I:I=L:NEXTI:L=T:GOSUB275 
IF FL=1 THEN FL=0:L=X:GOSUB2500:GOT 

NEXTI:PRINT:PRINT"DATE NOT IN FILE" 

F0RI=1T08:PRINT:NEXTI:PRINTTAB(8)"W 
EATHER ANALYSIS":F0RI=1T01000:NEXTI 
010 PRINT"{CLR}":REM APPLE-2010 HOME, O 


3020 F$="@0:WEATHER FILE":D1=1 
3040 IFY$="M"THEN3080 
3050 IFD1=1THENG$=",S,R" 

3060 OPEN1,1+7*D1,8*D1,F$+G$:GOSUB3100 
3070 INPUT#1,L:FORI=lTOL:INPUT#1,A$(I):N 
EXTI:GOSUB3100:CLOSEl:GOSUB3100:GOT 
0110 

3080 IFD1=1THENG$=",S,W" 

3085 0PEN1,1+7*D1,1+7*D1,F$+G$:GOSUB 310 


3 INPUT#15,A,B$,C 


3110 RETURN 


1 COLOR COMPUTER CASSETTE 


3 PROGRAM I 


DESIGNE 


2035 PRINT" EN-":PRINT"TITLED 'WEATHER F 


2040 PRINT"SEPARATE WEATHER RECORD BE MA 
IN-":PRINT"TAINED." 

2055 PRINT:PRINTTAB(4)"THIS PROGRAM WILL 
OFFER A " 

2060 PRINT"FORECAST OF EXPECTED WEATHER" 
:PRINT"CONDITIONS USING BAROMETRIC" 
2100 PRINT"PRESSURE AND WIND DIRECTION." 
2130 PRINT:G0SUB2500:RETURN 
2500 INPUT"{3 SPACES}INPUT C TO CONTINUE 
";C$:RETURN 

2600 GOSUB 17:F0RI=1T09:PRINT:NEXTI:PRIN 


2610 INPUT"MEMORIZED (Y/N)";E 


Program 3: 

64 And PET (40 or 80 column) Data Storage 
Routine 


3002 PRINT' 1 1CLR} 

3004 IFE?O~D"ANDE$<'> ,, C"THEN3002 




r"PRESS <ENTER> WP 


Program 5: 

Apple Data Storage Routine 


3022 PRINT D*;"OPEN WEATHER F 
Y* = "M" THEN 3040 
3024 PRINT D*;"READ WEATHER F 


T D*;"WRITE WEATHER F 


)R 80 COLUMN) CASSE 
2 HANDLING ROUTINE 
_ _.I=1T04: PRINT: NEXTI: 
CASSETTE (D/C) ";E$ 


T D*;"CLOSE WEATHER FILE": POKE 


PRINT D*;"CLOSE WEATHER FILE": SOTO 
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Questions Beginners Ask 


Are you thinking about buying a computer for the first 
time, but don't know anything about computers? Or 
maybe you just purchased a computer and are still a 
bit baffled. Each month in this column, COMPUTE! 
will tackle some questions commonly asked by beginners. 


Q I keep seeing printers and computers ad¬ 
vertised with features such as “full ASCII 
character set" or "ASCII keyboard," etc. What 
does ASCII mean? 

A ASCII stands for "American Standard Code 
for Information Interchange." Basically, it's 
a way of encoding characters (letters, numbers, 
punctuation, special symbols) into standardized 
numbers that can be understood by any computer 
or computer device. ASCII was invented to allow 
all types of computers, terminals, keyboards, 
printers, modems, disk drives, and other 
peripherals to easily communicate with each 
other. It's like the "Morse code" for computing. 

The "ASCII character set" is a table of all the 
letters, numbers, punctuation marks, and other 
symbols that any computing device might need 
to communicate with another. Each character in 
the ASCII table is represented by a number 
ranging from 0 to 127. For instance, the ASCII 
code number for the letter "A" is 65; the code for 
the number "0" is 48; the code for an exclamation 
mark ("!") is 33. (Many computer manuals and 
books have an appendix with a table of the ASCII 
codes.) 

When a computer sends something to be 
printed on a printer, for example, the characters 
are converted to ASCII numbers by the computer, 
transmitted along the printer cable, and then rec¬ 
ognized by the printer as the original characters. 
Thus, when a printer is advertised as having a 
"full ASCII character set," it means the printer is 
capable of recognizing and printing any standard 
ASCII character. 

Likewise, a "standard ASCII keyboard" 
means that the computer or terminal keyboard 
can type any ASCII character. This is especially 
important for computers or terminals that will be 
used for telecomputing (hooking up to distant 


computers over telephone lines). Some of the 
ASCII codes are "control codes" - they transmit a 
command encoded as a character. For example, 
the ASCII code "7" stands for "bell." It rings a 
built-in bell or buzzer found on most computers 
and terminals. ASCII code "13" means "carriage 
return" and is like pressing the RETURN or 
ENTER key on the keyboard. 

The subject of character codes can become 
very complicated, because even computers which 
have ASCII keyboards and which communicate 
with outside devices in ASCII do not necessarily 
use ASCII internally. 

Atari computers, for example, use ASCII for 
letters and punctuation, but deviate from ASCII 
for the control codes - such as 155 for carriage 
return (versus 13 in true ASCII) and 253 for the 
bell, as opposed to ASCII's 7. 

Commodore computers send control charac¬ 
ters as ASCII, but the codes for the lowercase 
alphabet (normally 97-112) are offset by 64. This 
can cause problems when you try to hook up a 
standard ASCII printer (usually upper- and lower¬ 
case come out reversed). 

Apple computers use true ASCII and can 
even send lowercase, although you can't display 
lowercase on an unmodified Apple II. Both the 
Texas Instruments TI-99/4A and the TRS-80 Color 
Computer use true ASCII. 

Any computer can be made to send and re¬ 
ceive true ASCII with a hardware or software 
interface. That's one of the functions of "terminal 
software" in telecomputing: a special program 
translates the computer's output to universal 
ASCII. 

Q What exactly is a "port," as in "user port," 
or "serial port," or "input/output port"? 

A A "port" is simply a slot or a jack on a 
computer where external devices may be 
plugged in. It's similar to the jacks on a stereo 
receiver which allow you to add on speakers, 
tape decks, turntables, and other accessories. 

There are many different types of ports, and 
often they are incompatible among different com¬ 
puters. That's one reason why you can't plug an 
Apple disk drive directly into a Commodore 64, 
or an Atari cassette recorder into a VIC-20. 
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However, some standards have been estab¬ 
lished for ports, at least unofficially. The two main 
types of input/output ports are known as "serial" 
and "parallel." In personal computing, the pre¬ 
vailing standard for serial ports is the "RS-232C" 
interface; for parallel ports, it's the "Centronics" 
interface. Most computers have one or sometimes 
both of these ports. Those which do not, require 
an additional adapter or interface box to make 
them compatible with the wide range of external 
devices designed to work with these interfaces. 

The "user port" on Commodore 64 and VIC- 
20 computers can be used as both a serial and a 
parallel port for input/output. As a serial port, it 
fits almost all of the RS-232C standards. As a paral¬ 
lel port, it does not conform to the Centronics 
standard, but can be used for similar purposes. 

Another type of port familiar to home com- 
puterists is the joystick port. The Atari-type joy¬ 
stick port seems to have become the de facto in¬ 
dustry standard. It is found on the Atari 2600 VCS 
game machine, the Atari 400/800/1200XL com¬ 
puters, the Commodore 64 and VIC-20, and sev¬ 
eral other home computers introduced within the 
past year. Although most commonly used as an 
input port (joysticks, paddles, and light pens), 
this controller port also is capable of output. Some 
Atari users even wire two of their joystick ports 
together to make a parallel port for a printer. C 
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LEARN 
TO TYPE 
OR GET 
BLOWN 
TO BITS. 



MasterType™ makes typing a blast. 

Now there's a typing program for the Apple II, Atari 
and IBM PC that dares to be fun. And it’s soon to be 
available for the VIC-20. It’s MasterType. A combination of 
fast-action blow ’em up video games with the best instruc¬ 
tional programs available. The result? Highly motivating 
and enjoyable learning. 

MasteiTVpe earns a ten-gun salute. 

Infoworld was impressed by MasterType’S ability to 
teach and entertain. They wrote: 

“MasterType is an excellent instructional typing game. 
We had fun reviewing it, and we highly recommend it 
to those who want to learn typing in an unconven¬ 
tional but motivating way.’’ 

Infoworld also went on to rate MasterType as 
“excellent” in all four of its categories. 


Mastedype teaches your fingers to fly. 

MasterType. With 18 explosive learning levels, you’ll 
either learn to type or get blown apart. 

39.95. (49.95 for the IBM PC). 

All require disk drive: 

32K for Atari, " 

48K for Apple II, 

64K for IBM PC. 











Part II 


Constructing The 
Ideal Computer Game 

v g Orson Scott Card, Editor, COMPUTE' Books 


Last month, in Part 1, we explored the general notion of 
the ideal, involving computer game. This article now 
concludes with some hands-on, specific programming 
for an Atari version of the example game. 


Laying Track At The Expert Level 

If you are playing the expert game, there are a lot 
of track-laying options open to you, for you are 
allowed to create switches. 

Simple Switches. To create switches, hold 
down the joystick button when you push or pull the 
joystick. You will get the following results. 

If, with the button held down, you push the 
joystick in the direction that would normally lay a 
straight track unit, a Y-switch will be laid: 


^r 


ec 


IIC 



If, with the button held down, you push the 
joystick in the direction that would normally curve 
the track to one side or the other, one spur of the 
switch will go straight ahead, while the other 
spur will curve in the direction you pushed. 


e 

HU 


r 


nr 


Laying Complex Switches. The most compli¬ 
cated switching operation is when you want the 
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track to branch from another direction. If, with the 
button held down, you push the joystick back in 
the direction you came from, which would nor¬ 
mally let you re-lay the last track unit, a low hum 
comes from the television. 



While that low hum is sounding, the program 
will wait for you to push the joystick in one of the 
three valid directions (straight or curved to either 
side). The new switch will branch from whatever 
direction you chose. 



push straight ahead 


Now a high-pitched sound will come from 
the television. This means that the program is 
waiting for you to choose one of the two remaining 
valid directions. The switch will branch toward 
the direction you choose. 




























































The high-pitched sound will end. You can 
then change your mind, of course, and lay a dif¬ 
ferent switch or a simple track unit - nothing is 
definite until you push START. But while those 
tones are sounding, you can choose only valid 
switching options, until you have completed the 

As you can see, there are only three possible 
switches - a left switch, a right switch, and a Y- 
switch. All switch units are laid by pressing down 
the button while moving the joystick. Only when 
you want a switch to branch from another direction 
does it take more than one step to lay a switch 

This sounds harder, and it is - but it also gives 
you more freedom when you come to track you 
have already laid. You still can do only crossovers 
and curved bypasses of the other player's track, 
but you can now join the spur you are working on 
to another segment of your own track. 

For instance, say you are laying a unit of track 
in the square shown below. 



At the beginner level, you could lay only a 
straight unit, creating a crossover. But at the expert 
level, you can also choose a left curve or a right 
curve, which would create one of the following 



Please notice that you don't have to push a 
button to create one of these switches. In fact, the 
program will ignore the button if you are about to 
cross an existing track segment, for each switch 
can only branch into two spurs. 


illegal switches 

This means that every switch that creates a 
new spur must end with a switch that rejoins the 
spur to the main line. 

To keep things from getting too cluttered in 
your layout, you can create a total of only eight 
switch-pairs if you are playing alone, or four 
switch-pairs for each player in a two-player game. 
So if you try to push the button to create a ninth 
(or fifth) switch, the program will ignore the 
button. 

Play Options 

How can you tell a spur from the main line? The 
only difference is the way the spur ends. If the 
spur ends by joining directly to the beginning of 
the very first track unit laid, it is the main line. If 
the spur ends by creating a switch to join it to any 
track segment, then that spur is not the main line. 

"Railroader" keeps track of how many spurs 
there are, and will not let you join the last spur 
back to the main line with a switch, unless you 
have already joined the main line back to the first 
track unit. And if you press OPTION with any 
spurs left open, without being joined back to the 
main line. Railroader will automatically make one 
spur the main line by joining it to the first track 
segment, and then will join all the other spurs to 
the nearest segment of the main line by using 
switches. 

• Choosing Which Spur to Build On. When you 
have more than one spur, of course, you get to 
decide which spur you are adding to. You do this 
by pressing the SELECT button at the beginning 
of your turn. Railroader remembers the location 
of every uncompleted spur end, and each time 
you press SELECT the cursor moves from one 
spur end to the next. Even if you have already 
laid a track unit in that turn, but have not yet 
pressed START, you can press SELECT and Rail¬ 
roader will erase the unit you just laid, then move 
the cursor square to the end of the next uncom¬ 
pleted spur. 

• Crossovers and Bypasses. Just because you 
can join one track to another with switches at the 
expert level doesn't mean you have to. You can 
still create a crossover or curving bypass by 
pushing the joystick in the direction that would 
normally lay those track units. 

• Erasing with Switches. What about erasing 
track units by pushing the joystick back in the 




































direction you came from? You can still do that, 
but when you come to a switch. Railroader will 
not let you erase it until you have erased all of 
both spurs leading away from that switch. When 
you have erased all of one spur, up to the switch, 
then push SELECT until you are at the uncom¬ 
pleted end of the other spur, and erase that line 
of track up to the switch. Now Railroader will let 
you erase the switch. ( Notice , though, that this 
woTks only if the spur has not been completed. If 
you come to a switch whose other end is already 
joined to the main line, pushing SELECT won't 
get you to the uncompleted end of that spur, since 
it has no uncompleted end.) 

• Illegal Moves. Now that you can use switches 
to join onto existing lines of track, there are fewer 
illegal moves to worry about, right? Unfortu¬ 
nately, it isn't so. You still can't join your spur to 
the other player's track. And now you can't cross 
over or bypass any track unit that contains a 
switch, either your own or the other player's! 

This means that you will end up erasing more 
often, as you or the other player occasionally get 
one of your spurs in a box. 

• Ending the Expert-level Session. Just push 
OPTION. If you left any loose ends. Railroader 
will clean them up, just as in the beginning level. 
If you left a spur in a box, however, from which 
Railroader can't legally escape without erasing, 
the program will put the cursor at the uncompleted 
end of that spur, so you can erase that line of track 
back to a point where either you or Railroader can 
legally complete the spur. 

Running The Trains 

When you end your track-laying session (or if 
you chose "Run Trains" instead of "Lay Track" at 
the beginning of the game). Railroader will ask 
you whether you want to use the layout you just 
created or load one from cassette or diskette. If 
you choose diskette, you will be asked the file 

When Railroader saves a layout, the file that 
holds the data also remembers whether there was 
one player or two. When you decide to run trains 
on a layout, you do not get to choose one or two 
players - Railroader will run two trains if there 
are two tracks, one train if there is only one track. 

If there is only one train, it is twice as long as 
each of the trains in a two-player game. (Since 
two trains use up twice as much CPU time as one 
train, this makes it so that one- and two-train 
games run at the same speed.) You cannot stop or 
speed up, but you can slow down your train by 
holding down your joystick button. When you let 
go, the train immediately resumes normal speed. 

You can control the switches with your joy¬ 
stick. Of course, if the spur you are on is merely 
joining onto another line, with no choice of direc¬ 


tion, you have no choice. But if your train could 
go either way. Railroader remembers whether 
you last pushed your joystick left or right. Other 
directions are ignored. If you last pushed left, 
your train will take the left-hand track at every 
switch it comes to until you push right. It doesn't 
matter when you push the joystick, except that 
once your engine has passed the Switch, Rail¬ 
roader will not change that switch; instead, the 
program will assume you have changed the next 
switch. 

Of course, if the train layout you are playing 
on was created at the beginner level, there are no 
switches. There will probably be crossovers and 
bypasses, however, which will make running the 
train more interesting. 

Two-Player Scoring 

If there are two players. Railroader keeps a score. 
You get one point for each track unit you pass 
through (which encourages you to stay at top 
speed); two points for each switch you cross over, 
and ten points if your opponent crashes into you. 
(You get no points for crashing into your oppo¬ 
nent.) Only relative scores are kept - the difference 
between your scores. Your engines change color, 
depending on which of you is ahead. The leader 
has a brighter, warmer-colored engine; the other 
player has a darker engine, in cooler colors. The 
actual number of the difference in scores between 
the two players is not displayed until the end. 

This means that when you are playing noncom- 
petitively, or with young children, they do not 
have to be aware of "winning" or "losing" - the 
color changes can be purely decorative. 

The game ends when one player or the other 
pushes OPTION, or when the difference between 
the two players is greater than 255. 

Programming Hints: Creating The 
Screen 

The easiest way to create the train layout is to use 
an alternate character set with a multicolor char¬ 
acter mode, if your computer will allow it, though 
direct pixel manipulation will also work. On the 
Atari, for instance, you would probably use 
ANTIC mode 4, which provides a screen 24 char¬ 
acters high and 40 characters wide (just like 
Graphics 0). You might then divide the screen 
into four-character by four-character blocks, giving 
you a grid of six blocks vertically by ten blocks 
horizontally. (Any arrangement that comes out 
even will do.) Obviously, these blocks correspond 
to the "square" track units. 

Individual characters might look like the 
seven characters depicted in Figure 1. 

These characters might be combined into 
an up-right curving block of track as shown in 
Figure 2. 





































You might notice that the four comers of 
every block are never used, and depending on 
the track layout within each block, many other 
characters are blank. You could fill these blank 
spaces with almost anything. In fact, since the 
place where the comers of four blocks join will 
always be blank, you might put buildings, foliage, 
water, or practically anything into these spaces 
before the game begins, giving a sense of the space 
remaining to be filled. 

How Many Characters Will It Take? 

Surprisingly few characters will be needed to 
create the track itself. On the Atari, for instance, 
if the rails are drawn using color register 2 at loca¬ 
tion 710, then the second player's track can use 
the same characters, but entered in inverse mode. 
In inverse mode, the color of the rails will come 
from color register 3 at location 711. 

There are two possible straight tracks: vertical 
and horizontal. Each requires two characters. The 
four possible curves (up-left, up-right, down-left, 
and down-right) require 12 more characters. There 
are 12 switches - four Y-switches, four left-hand 
switches, and four right-hand switches - but they 
might be able to use some pieces from the curves 
and straight tracks, so that only 32 new characters 
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would be needed to make them. Bypasses and 
crossovers require another eight characters. 

That means that 68 characters are required to 
make every essential track element - leaving you 
60 characters for drawing buildings, foliage, 
ponds, or anything else you might want to add. 

Putting Together The Blocks 

How many total blocks would you need? For one 
player, you would need two straightaways, four 
curves, one crossover, two bypasses, four Y- 
switches, four left-hand switches, and four right- 
hand switches. For two players, double that and 
add six new blocks for situations where two 
different-colored tracks are present on the same 
block (two crossovers and four bypasses). That 
gives you a total of 48 blocks, each consisting of 
16 characters. 

Blocks could be stored as a two-dimensional 
or three-dimensional numeric array, and your 
program could POKE them into screen memory: 
500 FOR 1 = 0 TO 3 
510FORJ = 0 TO 3 

520 POKE SCREEN + PLACE + <40»I)+J,BLOCK 
(UPLEFT,I,J) 

530 NEXT J:NEXT IiRETURN 

In this subroutine, BLOCK is a three-dimensional 
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Figure 2. 

Block Of 16 Characters Forming An Up-Right 



array, in which the first subscript defines which 
block it is, the second defines the row of the block, 
and the third defines the character on the row. 
The characters in Block 7 would be defined like 
this: 

BLOCK(7,0,0) BLOCK(7,0,1) BLOCK<7,0,2) BLOCK(7,0,3) 
BLOCK<7,1,0) BLOCK(7,l,l) BtOCK(7,l,2) BLOCK(7,X,3) 
BLOCK(7,2,0) BLOCK(7,2,l) BLOCK<7,2,2> BLOCK(7,2,3) 
BLOCK(7,3,0) BLOCK(7,3,l) BLOCK(7,3,2> BLOCK(7,3,3) 
ULEFT is the variable holding the number of the 
block that draws an up-left curve. SCREEN holds 
the address of the start of screen memory. PLACE 
holds the offset of the block's starting address 
from SCREEN: 40 is added to PLACE for each 
new line, and 1 for each new character. 

The same sort of thing could be done with 
string arrays, using POSITION and PRINT 
commands: 

500 FOR 1 = 0 TO 3 

5J0 POSITION COLUMN,LINE +1 

520 PRINT BLOCK$(ULEFT,I) 

530 NEXT LRETURN 

Atari users could dimension one long string - 
DIM BLOCK$(767) - and then use POSITION 
and PRINT commands like this: 

500FORI = 0 TO 3 

510 POSITION COLUMN,LINE +1 

520 PRINT BLOCK$(ULEFT + <I*4),ULEFT + (1*4) + 3) 

530 NEXT LRETURN 

You don't have to settle for the 24-row by 40- 
column screen, either. Even with coarse scrolling, 
instant vertical wraparound can be achieved by 
making the last 24 rows of screen memory identical 
with the first 24 rows, and then page-flipping 
instead of scrolling at the very top and bottom of 
screen memory. As players lay track at the top or 
bottom of the screen, they might notice a slight 
delay as the program POKEs the blocks into two 
places in screen memory instead of one, but during 
the actual scrolling there will be little if any 
hesitation. 


Moving The Train 

If you want to have a smoothly moving train, 
you'll need to use player/missile graphics. You'll 
get best results with machine language sub¬ 
routines for movement. The train can still be run 
with BASIC, however, and the illusion of speed 
can be maintained if you move the train in incre¬ 
ments of, say, half a screen character - two hori¬ 
zontal pixels or four vertical pixels at a time, each 
way. Movement is a little jerky, but it is fast. 

Animation will be a little tricky. On straight 
tracks it is simple enough - you need only four 
positions for each car - two, if the front and back 
of the car are identical, so that it doesn't matter 
which way it is facing. If your engine and train 
cars are identical, except for color, it is all the 
simpler, since one shape will control each position 
for all the cars. 


□ □ 


There is nothing wrong with using only 
straight vertical and horizontal movements - the 
curving tracks are abrupt enough so that the train 
won't "leave" the track. However, for smooth 
movement you may want intermediate positions: 



Another animation technique is to use part of 
your character set to generate trains, with charac¬ 
ters representing track sections with train cars on 
them. By POKEing "train car" characters into 
screen memory and then restoring the old values 
afterward, you can get longer, four-colored trains - 
but with jerkier movement. 

You will also need to decide how to handle 
collisions. Stop one train? Let them pass through 
each other? Design an explosion? 

The answers to these and many other ques¬ 
tions are best left to your own creativity. After all, 
there are hundreds of ways to design elegant pro¬ 
grams to bring this game to life. Solving the prob¬ 
lems to create your version of Railroader is half 
your fun. 

The other half is making layout after layout. 
No two games will ever be the same; and as gen¬ 
erations of model railroaders can tell you, actually 














SAVE ON... COMPUTERS - MONITORS 
PRINTERS • PERIPHERALS -SUPPLIES* 



STAR MICRONICS GEMINI 10 


EPSON FX-80 PRINTER 


$329 


SAVE ON LETTER QUALITY 

DIABLO 620 New Low Price. 

DIABLO 630 w/API & cable. 

NEC 3510 SPINWRITER. 

NEC 7710 SPINWRITER. 

NEC 7730 SPINWRITER. 

BIG SAVINGS ON ACCESSORIES 

HAYES SMARTMODEM 300 Baud. 

HAYES MICROMODEM II (APPLE II). 

MICROSOFT SOFTCARD PREMIUM SYSTEM. 

ORANGE MICRO GRAPPLER +. 

PKASO PRINTER CARDS. 

RANA ELITE I (APPLE II). 

SIGNALMAN MODEMS (MK I) As Low As . . 


1 , 399.00 

2 , 045.00 

2 , 095.00 


230.00 

289.00 

459.00 

120.00 

129.00 

299.00 

85.00 


DOT MATRIX PRINTER BARGAINS 

C-ITOH PROWRITER 8510 AP. 

IDS MICROPRISM 480. 

OKIDATA MICROLINE 92 (NEW). 

OKIDATA MICROLINE 93 (NEW). 


549.00 

549.00 

859.00 


MONITOR SPECIALS FROM OMEGA 

AMDEK300G 
AMDEK300 
NEC JB1260 
NEC JB1201 , 

USI Pi-2 12" GREEN MONITOR . 

USI Pi-3 12" AMBER MONITOR. 


SOFTWARE __ 

Omega^Garies Software by the following ^CUSTOMER PICK1 

•Da^n5^lnnow^tveSo^ware^Microsoft I 334 R Cambridge 


Include Shipping Charges 

PICKUP NOW AVAILABLE 

(617) 229-6464 



UN ADVERTISED SPECIALS ON • COMREX • EPSON • NEC • IDS PRISM * OKIDATA 

OMEGA INTERNATIONAL 

334 R CAMBRIDGE STREET. BURLINGTON. MA. 01803 


































running the trains is just an extra, like the 
orchestra doing a quick encore when the concert 

Variations 

After you've carried out this game design (no 
doubt improving on it many times along the way), 
you might try one of these variations: 

• Traffic. One player designs a system of one¬ 
way and two-way streets, setting up stoplights. 
Then up to five players use paddles to drive cars 
on the streets, getting "tickets" for disobeying 
laws and losing even more points for crashing, 
while the program systematically changes the red 
and green traffic lights. 

• Treasure Map. Using a font of old-fashioned 
map characters, a player designs a treasure map; 
when the game is played, the program randomly 
or systematically assigns certain treasures and 
dangers to certain locations. 

• Houseplan. The player uses the joystick to 
build the walls of a house, and the keyboard to 
put in doors and windows and furnish the house. 

Does It Matter? 

After all, it's only a game. It's only play. It's only 
supposed to make money, isn't it? Like the 
movies. The success of a game is measured in 
dollars per week. It couldn't possibly be art. 

But it is art. Computer games are created by 
human beings, using the computer, the television 
screen, and the sound speaker as their medium. 
And like other artists, computer gamemakers - 
let" s call them videowrights - find that their medium 
is at once limiting and liberating. 

The videowright has only a tiny fraction of 
the painter's palette to work with. The scan lines 
and color clocks of the TV set force the videowright 
to paint in discrete dots, while memory limitations 
discourage extravagant use of color and images. 
Yet painters cannot make their paintings move. 

Novelists and playwrights can create far 
deeper characters, far more intricate plots than 
the videowright, but novelists cannot make you 
see, and playwrights cannot bring off the fantastic 
milieux of the videogame. 

Above all, the videowright can create an art 
that the audience takes part in. When you play a 
videogame, you become part of the act. It's as if 
you went to the movies and, without stopping 
the flow of the film, you got to decide what Clint 
Eastwood or Katharine Hepburn would say next; 
as if you went to the theatre, and were given a 
script and put into the play; as if you went to a 
concert and got to control the program as it went 

World-Making 

Despite their differences, all the arts have some 
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things in common. I believe that this is the most 
important: 

The audience voluntarily comes to dwell in 
the world that the artist has created. 

Playing Joust and Dig-Dug is more than rack¬ 
ing up points. It's dwelling for a time in a world 
that you can't visit any other way. There are dan¬ 
gers; there are laws; there are strategies for survi¬ 
val; there are rewards for achievement. There is a 
beginning, an ending. You have more than one 
chance to make good. 

Audience Or Artist 

My children are still so young that they don't know 
that it takes years of training to dance or sing or 
act out plays or write books. Geoffrey is halfway 
through writing a novel. Emily improvises plays 
all day. When the kids like the music they hear, 
they dance. When they want to sing, they sing, 
and never mind the melody. And we have enough 
drawings and paintings to paper a good-sized 
office building. 

We wouldn't dream of telling children that 
baseball and basketball were only for grownups - 
they can only go to the ballpark and watch. It's 
no better to limit them to being in the audience of 
videogames. Even though it's the most partici¬ 
patory of the arts, the barrier between maker and 
audience shouldn't be so vast. 

Of course, people don't always want to be 
creative. More often than not, I prefer to play. I 
like dwelling in some of those worlds that video¬ 
wrights have made for me. 

But when I want a more creative kind of en¬ 
tertainment, I'd like to be able to sit down at the 
computer and build, the way my children and I 
build with wooden blocks and plastic bricks. 1 can 
always write my own program if I want to, of 
course. But that's like cutting down a tree and 
sawing it into blocks and sanding them in order 
to play with building blocks. Doing it once is 
fine, but you wouldn't want to have to do it every 
time. © 
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Here's a short but exciting game for the VIC-20. Joystick 
required. Version for the Atari included. 


You are a hungry fire-breathing dragon trying to 
catch some lunch. You're also fighting time as 
you chase assorted foods up and down ladders 
and across corridors. 

Using a joystick to control the pursuit of your 
wily prey, you must breathe fire to consume the 
apples, pretzels, and other delights by pressing 
your fire button. But be careful. The feast moves 
around randomly to avoid the stream of fire. 

You are allotted 60 seconds, and if you eat 
something your score is the amount of time left. If 
you do this within 60 seconds, you start over but 
only with 55 seconds and so on down to 10 sec¬ 
onds. If you make a catch within the final 10 
seconds, you're back to 60 again. As a warning, 
the border will change colors when only 5 seconds 
remain. 

If you fail to make your catch in the allotted 
time, the game ends with an option to play again. 
Also, "Dragon" records the high score. 


Program 1: Dragon-VIC Version 

20 POKE36879,233:PRINT"ICLRl111 DOWN) 

(8 RIGHT)DRAGONI” 

30 POKES2,28:POKE56,28:CLR 
40 F0RI=7168T07679:POKEI,PEEK(1+25600):N 

50 poke36869,255 

60 FORC=743 2T07 551:READA:POKEC,A:NEXT 
65 DATA8,42,28,127,28,42,8,0,8,127,93,28 
,127,73,28,28 

70 DATA187,0,238,0,187,0,238.0.127.65.12 


195 S=7756iJ=37151:POKEJ+3,255:POKEJ+3,1 
27:G=0:P=0:POKE36879,233:Q=36874:N=1 

200 A=INT(RND(1)*4)+1:B=INT(RND(1)*3)+1: 




,0,0,0,0,28,8,28,8,28^! 28,8,8,28,8^2 
90 DATA28!3,3,18,58,126,252,72,108,192,1 



250 IFY=0THEN300 

300 X=PEEK(J+1)AND128:JE=-(X=.):X=PEEK(J 
):JS=-((XAND8)=.) 

305 JW=-((XAND16)=.):JN=-((XAND4 )=.): FB= 
-((XAND32)=.) 

307 POKEQ,0:POKEQ+3,0 
309 IFFBTHENI=D+L:GOTO800 











THERE ARE SOMETHINGS 
YOU KEEP SEARCHING FOR, 
BEYOND REASON. 


Kidnapped in revenge and locked in hatred some¬ 
where deep beneath your castle, is your princess. 

Gwendolyn. 

The prosperity of your kingdom, the end of a bitter 
feud, your very future depend on finding her. 

You swear that no obstacle can stop you. But the high- 
resolution, 3-D graphics, animation and sound effects 
make the obstacles that await you more formidable than 
you can imagine. 

And with over ninety different screens and two full 
sides of play, those obstacles and the decisions you must 
make can appear endless. In fact, you may have to endure 
hours of searching to rescue Gwendolyn. 

But for her, you would endure anything, wouldn’t you? 


Gwendolyn-a non-violent, intermediate graphic adventure game, written 
by Marc Russell Benioff, Atari 40K Disk $27.95, Artworx Software Co., Inc., 
150 N. Main St., Fairport, N.Y. 14450. For a free catalog of Artworx 
Software for the Atari, Apple, VIC-20 & Commodore 64 computers, write 
or call 800-828-6573. 



So you can play. 
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THRESHOLD.™ LUNAR LEEPER,™ CROSSFIRE™ CANNONBALL BLITZ™ 


ACTUAL VIC 20 SCREENS 


your city from reincarnating invaders 

_ in CROSSFIRE.™ Evade a CANNON- 

the Apple and Atari. BALL BLITZ™ to climb through three 
graphics and the stages of action to defeat the 

. Redcoats. 

24 Sierra On-Line's assortment of the 
different levels - of intruding best the brightest and the fastest 
aliens in THRESHOLD. Believe it! 

pals from THRESHOLD,™ LUNAR LEEPER,™ 

-- CROSSFIRE™ and CANNONBALL 

BLITZ™: A whole new look for the Vic 
20! Available at your local dealer. 


















FLOPPY DISK DRIVE FOR VIC-20 AND COMMODORE 64 


GROW WITH US! 


EXPANSION PRODUCTS FOR 
YOUR MICROCOMPUTER 




MSD also makes Port Expanders, 
RAM cartridges, Games, Audio 
Cassette Interface, Monitor 
Cables and Terminal Emulation 
Software. 











First Math 

Steve Hamilton 


This math game for children features graphics, color, 
and sound. In addition to displaying the correct answer 
after a child has entered an incorrect one, there's a 
small fanfare for ten consecu tive correct answers. 
Versions for VIC, 64, TI, Radio Shack Color Computer, 
and Apple. 


I was introduced to home computing last May 
when I bought the VIC-20.1 got one partly for my 
two boys, so they would grow up with some 
knowledge about a computer. Since the older boy 
was just approaching kindergarten, I thought it 
would be at least a year or so before he would be 
ready to operate the VIC. He was ready long before 
I had anticipated. 

The following is a simple math exercise that I 
developed for him. In this program, the user is 
given a choice of exercises: addition, subtraction, 
multiplication or division. Then, a choice of upper 
and lower limits is specified for each of the two 
numbers in each question. Since the computer 
will generate random numbers, the parameters 
you choose will become the limits for each number 
pair. This is how you can adjust the difficulty 


BEFORE TYPING... 

If you're new to computing, please read "How 
To Type COMPUTERS Programs" and "A 
Beginner's Guide To Typing In Programs." 


Program 1: First Math - VIC Version 

10 P0KE36879,111:PRINT"{CLR}{RVS} 

{9 DOWN1{CYN1f6 RIGHTiFIRST MATH":FOR 
I=1TO2000 :NEXTI :D=0 
30 PRINT"{CLRH4 DOWNlTO ADD :TYPE +" 

50 PRINT”(DOWN)TO SUBTRACT :TYPE 
70 PRINT"[DOWNlTO MULTIPLY :TYPE *":PRIN 


T”{DOWNlTO DIVIDE :TYPE /":PRINT" 

[3 DOWN}YOUR CHOICE=?{2 SPACES)"; 

83 GETA$:IFA? < >CHR$(42)ANDA? < >CHR$(43)AN 
DA$< >CHR$(45)ANDA$ < >CHR$(47) OR A$="" 

84 PRINT"[LEFT)"A$:INPUT"[DOWNlHIGHEST N 
UMBER";UL:INPUT"[DOWN)LOWEST NUMBER"; 


95 C=INT(RND(1)*R)+R1:B=INT(RND(1)*R)+R1 
100 IFA$=CHR$(43iTHENDEF FNA(X)=B+C 
110 IFA$ =CHR$(45)THEN DEF FNA(X)=B-C 
120 IFA$=CHR$(42)THEN DEF FNA(X)=B*C 
125 IFA$=CHR$(47)ANDC=0 THEN 95 
130 IFA$=CHR$(47)ANDINT(B/C)<>B/C THEN95 
135 IFA$ =CHR$(47) THEN DEFFNA(X)=B/C 
140 PRINT"[CLRj{2 SPACESiNO. OF ANSWERS" 
150 PRINT"CORRECT IN A ROW="D:IF D=10 TH 
EN 295 

180 E=FNA(X):PRINT:PRINT B;A$;C;:INP 

210 PRINT"{7 RIGHT}[3 DOWNlCORRECT" 

211 POKE7931,46:POKE7932,46:POKE7975,74: 
POKE7976,75 

212 POKE38651,7:POKE38652,7:POKE38695,7: 
POKE38696,7 

219 FORT=1TO1000:NEXTT:D=D+1:IFD=10 THEN 
PRINT"(BLK}":GOTO 140 
240 G0T095 

250 PRINT"[DOWN} THAT IS NOT CORRECT" 

260 PRINTB;A$;C;"=";E 

261 POKE7931,46 : POKE7932,46 : POKE7975,85 : 
POKE7976,73 

262 POKE38651,7 : POKE38652,7 : POKE38695,7 : 
POKE38696,7 

270 FORT=1TO3500 :NEXT :D=0: GOTO 140 

295 POKE7931,46:POKE7932,46:POKE7975,74: 
POKE7976,75 

296 POKE38651,1: POKE38652,1: POKE38695,1; 
POKE38696,1 

299 POKE36878’, 15 :F0RT=255T0128STEP-1 

301 POKE36879,T:POKE36876,T 

304 F0RT1=1T05:NEXTT1:NEXTT:FORT=l28T025 

309 POKE36879,T:POKE36876,T 
312 F0RT1=1T05:NEXTT1:NEXTT 
323 POKE36878,0 jPOKE36879,27 
325 PRINT"(4 DOWNHRIGHT}PLAY AGAIN ( 
[RVS}Y(OFFj/(RVS}N(OFF) ) ? "; 

327 GET A?; IF A?="" THEN 327 

328 IF A$="Y" THEN 10 
330 PRINT"[CLRl[BLU}":END 





CREATIVE SOFTWARE 

- the #1* independent VIC-20 full-line software 
publisher in the U.S. - is proud to announce 
4 new Gome Cartridges & 5 Home Applications 
for the COMMODORE 64. 


/4STROBUTZ 




















































You get a happy face for a correct response in "First Math" - 
VIC version. 


Program 2: First Math - 64 Version 

5 GOTO 10 

6 POKE 1720,81: POKE1722, 81: POKE1799,74 : P 
OKE1800,67:POKE1801,67 

7 POKE 1802,67:POKE 1803,75 

8 POKE55992,4: POKE55994,4: POKE56071,7 : PO 
KE56072,7:POKE 56073,7:POKE 56074,7 

9 POKE 56075,7 .-RETURN 

10 POKE53280,7:POKE53281,6:PRINT"tCLR) 

(RVS){9 DOWN}[CYN}[10 RIGHTjF I R S T 
!3 SPACES }M A T H":D=0 
20 FOR 1=1 TO 2000:NEXT I 
30 PRINT"{CLR}{4 DOWN}{3 RIGHT)IF YOU WA 
NT TO ADD, TYPE +" 

50 PRINT"{DOWNH3 RIGHT)IF YOU WANT TO S 
UBTRACT, TYPE 

70 PRINT"{DOWN}[3 RIGHT)IF YOU WANT TO M 
ULTIPLY, TYPE *" 

72 PRINT"{DOWN}{3 RIGHT)IF YOU WANT TO D 
IVIDE, TYPE /“ 

75 PRINT"{3 DOWN){3 RIGHT)YOUR CHOICE=? 
{2 SPACES}"; 

83 GETA$:IFA$=“"THEN83 

84 IF A$<>CHR${42)ANDA$< >CHR$(43)ANDA$<> 
CHR$(45)ANDA? < >CHR?(47)THEN83 

85 PRINT"{LEFT}"A?:INPUT"{2 DOWN) 

{3 RIGHT)HIGHEST NUMBER";UL:INPUT" 
{DOWN){3 RIGHT}LOWEST NUMBER";R1 


219 FORT=1TO1000:NEXTT:D=D+1:IFD=10 THEN 
PRINT"{BLK}":GOTO 140 
240 G0T095 

250 PRINT”{DOWN}{5 RIGHT)...THAT IS NOT 
CORRECT" 

260 PRINT"{11 RIGHT}{DOWN}";B;A$;C;"=";E 

261 POKE1720,81: POKE1722,81: POKE1799,85 : 
POKE 1800,67:POKE1801,67 

263 POKE 1802,67:POKE 1803,73 
265 POKE55992,4 : POKE55994,4: POKE56071,7 : 
POKE56072,7:POKE 56073,7:POKE 56074, 

267 POKE 56075,7 

270 FORT=1TO3500:NEXT:D=0:GOTO 140 
295 GOSUB 6:POKE 54276,17:POKE 54277,30: 

POKE 54278,200:POKE 54296,15 
299 POKE 54272,220:FORT=120 TO 1 STEP-1 
301 POKE 54273, T:POKE 53281,T 
304 F0RT1=1T05 sNEXTTlsNEXTT:FORT=l TO120 
309 POKE54273,T:POKE53280,T 
312 F0RT1=1T05sNEXTTlsNEXTT 
323 POKE54276,0:POKE54273,0:P0KE54272,0: 
325 PRINT"{6 DOWN){8 RIGHT)PLAY AGAIN ( 

{RVS)Y{OFF}/{RVS}N{OFF} ) ? \- 

327 GET A$: IF A$="" THEN 327 

328 IF A$="Y" THEN 10 
330 SYS 2048SEND 



Program 3: First Math - TI-99/4A Version 

100 GOTO 330 


100 IFA$=CHR$(: 
110 IFA?=CHR$(< 
120 IFA$=CHR$(* 
125 IF A$=CHR$ I 
130 IF A?=CHR$I 


R)+RlsB=INT(RND(l)*R) 
l)THENDEF FNA(X)=B+C 
|)THEN DEF FNA(X)=B-C 


135 IF A$=CHR$(47) THEN DEF FNA(X)=B/C 
140 PRINT"{CLR}[3 DOWN) NUMBER OF CORREC 
T ANSWERS IN A ROW="D:IF D=10 THEN 2 
95 

180 E=FNA(X):PRINT:PRINT"{3 DOWN) 

{11 RIGHT) ";B;A$,-C; : INPUTFsIFFO 

ETHEN 250 

210 PRINT"{13 RIGHT){3 DOWN)CORRECT 11" 












DYNACOMP 

The Leading Distributor Of 
Microcomputer Software 
PRESENTS 


PERSONAL FINANCE SYSTEM: 

One of the most complete financial management packages available. Keeps track 
of all tax deductible items, bank deposits, monthly charges, cash payments and 


Personal Finance System automatically deducts check fees, gives complete finan¬ 
cial summaries for any category on a per item, monthly or yearly basis, prints 
results in detail or summary form, and even plots results on a monthly bar graph. 
Available on diskette/disk only. Price $39.95 (diskette); $42.45 (disk). 

BRIDGE MASTER™ 

After years of success with BRIDGE 2.0, we have decided to not simply upgrade 
this popular card program, but to totally rewrite it! the result is BRIDGE 
MASTER, the best overall bridge package available. 

BRIDGE MASTER BIDS according to the Goren point count system. It 
PLAYS following the conventions. It SCORES according to the rules of 
duplicate bridge. BRIDGE MASTER’S features include continuous display of 
the bid and score during play, attractive screen display, score keeping and 
analysis, 1,000,000 different hands, and more! 

BRIDGE MASTER has received rave reviews and an “A” for value (The Book 
of Atari Software 1983). 

Available on diskette only. Requires 48K. 

Price: $29.95 (diskette); $32.45 (disk) 

THESE ARE ONLY TWO OF THE HUNDREDS OF PROGRAMS 
AVAILABLE FROM THE DYNACOMP LIBRARY OF SOFT¬ 
WARE PROGRAMS: 


■ Business/Utilities 

■ Adventure 

■ Personal Finance 

■ Games 


■ Education 

■ Thought Provokers 

■ Statistics 

■ Card Games 


■ Engineering 

■ Hardware 

■ Supplies 

■ And Much, Much More! 


Besides being the leading distributor of microcomputer software, DYNACOMP 
currently distributes software in over 60 countries. DYNACOMP provides 
FRIENDLY, ACCESSIBLE CUSTOMER SERVICE through our highly 
qualified and knowledgeable staff. WE’RE AS NEAR AS YOUR TELEPHONE. 
DYNACOMP’S prices are highly competitive and we promise prompt processing 
of every order! 

WRITE FOR A FREE, DETAILED CA TALOG 

Daytime 24 Hour Office Hotline: 

Toil Free Order Phones: Message and Order Phone: 9-5 E.S.T. 

(800) 828-6772 (800) 828-6773 (716) 442-8731 (716) 442-8960 


DYNACOMP, INC. 

1427 Monroe Avenue • Rochester, NY 14618 
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BLOCKHEAD 

£ MotfGiwer 


The blockhead moves vertically, bouncing as he goes, 
and tries to pop the floating balloons. You must catch 
him as he comes down, but his wildly erratic movements 
make that very difficult. Versions for 64 and Atari - 
requires paddles. 


"Blockhead" is similar to some of the early arcade 
games. You will need a paddle in position one to 
play. The knob controls the position, and the trig¬ 
ger bounces the blockhead. The objective is to 
pop the balloons and catch the blockhead when 
he comes back down. When the blockhead hits 
the balloons, there will be an explosion; he will be 
bounced around, hitting more balloons. 

After you clear one screen of balloons, you 
will get a new set and advance to the next level of 
play. At each advancing level the blockhead moves 
more wildly as he comes down. More balloons 
will be punctured, but there is also a greater chance 
either of missing him or of his being thrown out¬ 
side the area of play. There are five blockheads 
per game. When you miss the last one, you will 
be given the opportunity for a new game. 

Subroutine Strategy 

Although Blockhead seems like a simple game, 
there is more involved than might first be im¬ 
agined. Let's take a look at the game logistics in 
the Atari version. The blockhead must move up 
and down. A calculated trajectory would slow 
down the game considerably, so the vertical mo¬ 
tions are stored in strings, BUS and BD$. The num¬ 
bers in these strings, in groups of three, are the 
vertical positions that use VAL(BU$(x,x + 2)) 
POKEd into PLY, which is the vertical position of 
the blockhead. Blockhead is Player 0 of the P/M 
graphics. 

Since activities such as scoring are sometimes 
required to be called out of the normal game se¬ 
quence, this is a subroutine-oriented program. 

For example, when the last blockhead is missed, 
the game goes to the subroutine at line 6000. The 
number of balloons broken still has to be counted, 
so the subroutine SCORE is called here also. At 
line 1910, the start of the first game, or at line 6030, 
the start of a new game, the program waits for a 


trigger pull by calling the subroutine TRGR. But 
when it goes to a new level, line 5840, there is no 
need to wait for a trigger pull, so it is not called. 
Line 2175 sets up a new game, but only after the 
player has agreed by pulling the trigger as called 
in line 6030. 

The rest of the game is straightforward. The 
P/M graphics are set up starting at line 30000. 
From this line on, REMs are used to indicate sig¬ 
nificant routines, statements, or definitions. The 
Vertical Blank Interrupt routine defines player 
movement. The definition of each player is also 
noted by REMs. 

The lines discussed below are of special 
interest. 

Lines 5012 and 5512 evaluate the BUS and 
BD$ to determine the vertical positions. 

Line 5109 determines the horizontal position 
of the blockhead with respect to the position of 
the graphics. 

Lines 5110-5114 pop balloons two or four at a 
time depending on the size of the player. The 
eight bits of the player control eight color clocks, 
while the eight bits of a character in GRAPHICS 0 
control only half-color clocks. The result is that 
eight bits in P/M graphics are twice as wide as 
eight bits in normal graphics. 

Line 5810 calls the machine language string 
written in line 51. This routine reads the top lines 
of the screen and counts the number of occur¬ 
rences of the CTRL T "balloons" at the top of the 
screen. The 23rd character in this string, the up¬ 
percase T, determines which character is searched 
for. To search for a different character, the T must 
be replaced. First look at Table 9.6 (p. 55) of the 
Atari BASIC Reference Manual and find the number 
of the character you want to search for. Then look 
at Appendix C and find the ATASCII character 
for that number, and substitute the ATASCII 
character for the T. This machine language string 
works for only the first 256 locations on the screen, 
or for about six and one-half lines. 

Note the POKE PLX + 1, PADDLE(O) used in 
most subroutines. This is the catching platform; 
you are asked to update its position whenever 
possible. This is required so the platform won't 
end up off of the screen as you turn the knob. 



THERE’S A COMPUTER BORH EVERY MMTTE... 



GIVE IT A HOME. 
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Notes For 64 
Version Of 
Blockhead 


BEFORE TYPING... 

If you're new to computing, please read "How 
To Type COMPUTE!'s Programs" and "A 
Beginner's Guide To Typing In Programs." 


Gregg Peele Programming Assistant, 


Program 1: Atari Blockhead 


The Commodore 64 version of "Blockhead" 
utilizes the eight available sprites and an 
interrupt-driven routine which continues 
running even when the BASIC program is 
stopped. Using this machine language 
routine provides for optimal motion within 
the game and provides a means to constantly 
monitor the position of the sprites and set or 
unset the most significant bit of each sprite 
depending on which side of the "seam" the 

This game works using a timer. The 
object of the game is to "pop" the balloons 
as they float across the sky. The more bal¬ 
loons that you pop within your time limit, 
the more points you receive. Not only must 
you continually attempt to pop balloons, but 
you must also catch the blockhead before 
he falls below his home base. If you miss 
catching him, points are deducted until you 
can bring him back to the surface (using the 
fire button). 

The original version of this game is writ¬ 
ten to be used with Atari-style paddles. If 
you have Commodore paddles, you must 
change lines 1070 and 1080 to read as 
follows: 


51 B«="hH3Y{|3>l»«X ■ > f 15? nr taMim 

t, jbc, >n*En3t a>E ntrant, >GEtsp turn 



95 BU*="1821521271070920720670620570 


96 BD*="0450520570620670720921071271 
52182192212255" 


100 BOUNCEUP=5000 :HITTE5T=5100:M0VE2 
= 5200:SETUP=5300:START=5400:BOUN 
CED0WN=5500:CATCH=5600:MISS=5700 
110 SC0RE=5800: START 1=5450: LEVEl_ = 590 


1900 60SUB 30000 

1910 80SUB START:BOSUB TRGR:GOSUB ST 


2000 REM CONTROL LOOP 


2150 GOSUB M0VE2 
2160 GOSUB BOUNCEUP 
2170 GOSUB BOUNCEDOWN 

2175 IF NGAME=1 THEN GOSUB START:GOS 
UB START1:NGAME=0:GOTO 2900 
2180 GOSUB SCORE 


5000 REM BOUNCEUP 




1070 DATA 216,24,173,164,194,105,28,141 

1080 DATA 161,194,56,173,164,194,233,217 
This alteration leaves a slight glitch in the 
paddle movement around the seam but pro¬ 
vides for optimal range for movement around 
the screen. 

Blockhead utilizes the collision register 
to detect when one sprite "touches" another 
sprite. Since the collision register is changed 
only temporarily when sprites collide, the 
contents representing the collision must be 
saved until an event occurs which may again 
make the sprite collide with another sprite. 
The stored register is then cleared and the 
sprite is again ready for collision. Collision 
detection between the blockhead and the 
balloons is handled through BASIC. Since 
BASIC runs at a relatively slow rate, the 
blockhead must hit the balloon squarely to 
initiate a collision. A glancing blow will not 
generally "pop" a balloon. 




:B=B+(10*C):POKE PLX,B 

EN GOSUB HI.TTEST: GOTO 5080 
A=PADDLE(O):POKE PLX+1,A 


RETURN 














”Ant> the last shall be first” 

London Sunday Times March 4,1983 *' 
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The balloons in the 64 1 


i of “Blockhead" float across the 


610 DATA240,3,255,240,0,127,128,127,243, 
255,127,255,255,255,255,255,128,115 
620 DATA128,0,127,128,0,127,128,0,251,19 
2,1,241,224,3,224,240,7,192,120 
630 IF(PEEK(56321)AND4)< >0THEN790 
640 X2—0: P0KE4982 9,0 

650 FORT— (PEEK (V+3) ) TO50STEP-4: POKEV+3, T 
660 IFPEEK(V+30) >3THENPOKEV+21, (PEEK(V+2 
1)ANDNOT(PEEK(V+30) ) ) :SC=SC+10:GOSUB 

670 POKE(V+21),(PEEK(V+21)OR3) 

680 NEXT:GOTO700 
690 GOTO790 
700 POKE49829,0 

710 FORJ=( PEEK (V+3) )TO255STEP10:POKEV+3, 
J:IFPEEK(49829)=3THENX2=1s GOTO790 
720 PI=INT(RND{0) *40 ) -20: IF (PEEK(53250) + 
PI) <60AND(PEEK(53264) AND2 )—0THENPI—0 
730 IF(PEEK(V+2)+PI) <50AND(PEEK(V+16) AND 
2 ) -0ORPEEK (V+2) > 2 54THENPI-0 
740 IF(PEEK(53264JAND2)<>0AND(PEEK(53250 
)+PI)> 20THENPI—0 

750 IF PEEK(53250)+PI<245AND PEEK(53250) 
+PI> 10THENPOKE53250, PEEK(53250)+PI 
760 IFPEEK(V+3)<201THEN780 
770 PRINT" (HOME) (3 DOWN){7 RIGHTjOOPS t “ 

:SC=SC-5!FORT-1TO100:NEXTiPRINT" 

(HOME}{7 RIGHT}{3 DOWN}(5 SPACES}" 


780 NEXT 

790 IF PEEK(V+21)—3THEN:HI—HI—15:POKEV+3 
,190:GOTO530 

800 IFX2-1ANDPEEK(V+3)>180THENPOKEV+3,19 
0 

810 P=INT(RND(0)*40)-20:IFPEEK(53250)+P< 
15THENP—0 

820 PRINT"(HOME)(15 RIGHTJSCORE";* 

(5 SPACES}"; 

830 PRINT"(HOME)(15 RIGHTjSCORE";SC 
840 IFVAL(TI? ) > 5900THENTI ?= “000000 " 

850 IFTI?>="000200"THEN870 
860 PRINT"(HOME)(DOWN}(3 RIGHTjTIME ";RI 
GHT? (TI $, 4 ) ,- “ ( HOME } ( DOWN } ( 3 RIGHT } TI 
ME ”;:GOTO630 

870 PRINT"(HOME}(15 RIGHT}(8 DOWNjGAME O 
VER":POKE198,0 

880 PRINT"(HOME}(DOWN)(3 RIGHTjTIME ";RI 
GHT?(TI5,4);"(HOME}(DOWN}(3 RIGHTjTI 
ME "; 

890 PRINT"(HOME}(10 RIGHT}(10 DOWNjPLAY 
AGAIN? Y OR N " 

900 IFPEEK(197)—25THENCLR:RESTORE rGOTOll 
0 

910 IFPEEK(197)—39THENSYS2048 
920 GOTO890 

930 PRINTS",- : FORBO—1024TO1984STEP40: POK 
EBO,224:POKEBO+39,224 
940 POKEBO+54272,2;POKEBO+54311,2 
950 POKEBO+1,224:POKEBO+38,224 
960 POKEBO+1+54272,4:POKEBO+54310,4 
970 POKEBO+2,224:POKEBO+37,224 
980 POKEBO+2+54272,15:POKEBO+54309,15 

1000 FORFL-1864TO2023:POKEFL,224:POKEFL+ 
54272,8:NEXT 
1010 TI$="235952" 

1020 FORTE—1025TO1062 : POKETE, 224: POKETE+ 
54272,3:NEXT 
1030 POKE53280,1 
1040 RETURN 

1050 POKEV+21,0:F0RV1—49152T049673:READJ 
2:POKEV1,J2:NEXT:RETURN 
1060 DATA 173, 25, 212, 73, 255, 141, 16 

1070 DATA 216, 24, 173, 164, 194, 105, 4 
0, 141 

1080 DATA 161, 194, 56, 173, 164, 194, 2 
33, 215 

1090 DATA 141, 162, 194, 173, 164, 194, 
201, 216 

1100 DATA 176, 17, 173, 161, 194, 141, 1 
63, 194 

1110 DATA 173, 16, 208, 41, 254, 141, 16 


1120 DATA 76, 65, 192, 173, 16, 208, 9, 1 
1130 DATA 141, 16, 208, 173, 162, 194, 1 



1160 DATA 165, 194, 173, 160, 194, 41, 1 



1180 DATA 208, 173, 16, 208, 41, 1, 141, 


1190 DATA 202, 10, 13, 6, 202, 141, 16, 
208 
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1200 


173, 31, 202, 56, 


1210 

1220 

1230 

1250 

1260 

1270 

1280 


1310 

1320 

1330 


DATA 173, 16, 202, 56, 233, 210, 14 
1, 17 

DATA 202, 173, 16, 202, 24, 105, 45 

DATA 18, 202, 173, 16, 202, 201, 21 
0, 176 

DATA 17, 173, 16, 208, 41, 251, 141 

DATA 208, 173, 18, 202, 141, 4, 208 
, 76 

DATA 168, 192, 173, 16, 208, 9, 4, 
141 


, 173, 17, 


- 141, 


DATA 173, 19, 202, 56, 233, 210, 14 
1, 20 

DATA 202, 173, 19, 202, 24, 105, 45 
, 141 

DATA 21, 202, 173, 19, 202, 201, 21 
0, 176 

DATA 17, 173, 16, 208, 41, 247, 141 

DATA 208, 173, 21, 202, 141, 6, 208 
, 76 

DATA 224, 192, 173, 16, 208, 9, 8, 
141 

16, 208, 173, 20, 202, 141, 6, 


208 

DATA 1 
1, 23 


173, 


0, 176 

3 DATA 17, 173, 16, 208, 41, 239, 141 

3 DATA 208, 173, 24, 202, 141, 8, 208 
, 76 

3 DATA 24, 193, 173, 16, 208, 9, 16, 

V 16, 208, 173, 23, 202, 141, 8, 


208 


1420 D 
1430 D 
1440 D 


1470 D 
1480 D 
1490 D 

1510 D 
1520 D 


r 173, 


h 27, 202, 173, 25, 202, 201, 21 
176 

\ 17, 173, 16, 208, 41, 223, 141 
5 

h 208, 173, 27, 202, 141, 10, 20 
76 

A 80, 193, 173, 16, 208, 9, 32, 
h 16, 208, 173, 26, 202, 141, 10 


V 30, 202, 173, 


r 173, 30, 202, 141, 12, 20 


\ 136, 193, 173, 

\ 16, 208, 173, 2 


1, 32 

1560 DATA 202, 173, 31, 202, 24, 105, 45 
, 141 

1570 DATA 33, 202, 173, 31, 202, 201, 21 

1580 DATA 17, 173, 16, 208, 41, 127, 141 
, 16 

1590 DATA 208, 173, 33, 202, 141, 14, 20 
8, 76 

1600 DATA 192, 193, 173, 16, 208, 9, 128 
, 141 

1610 DATA 16, 208, 173, 32, 202, 141, 14 
, 208 

1620 DATA 238, 16, 202, 238, 16, 202, 24 
, 173 

1630 DATA 16, 202, 105, 43, 141, 19, 202 
, 173 

1640 DATA 19, 202, 105, 43, 141, 22, 202 
, 173 

1650 DATA 22, 202, 105, 43, 141, 25, 202 
, 173 

1660 DATA 25, 202, 105, 43, 141, 28, 202 
, 173 

1670 DATA 28, 202, 105, 43, 141, 31, 202 
, 173 

1680 DATA 30, 208, 240, 3, 141, 160, 194 
, 76 

1690 DATA 49, 234, 120, 169, 0, 141, 20, 

1700 DATA 169, 192, 141, 21, 3, 88, 96, 

0 

1710 DATA 255, 255, 0, 0, 255, 255, 0, 0 


— 
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An excellent teaching tool fop-preschoolers on up - with 
options to tailor the program for different age groups. 
For T1-99/4A and all Commodore computers. 


As a teacher-administrator, I have found my PET 
extremely useful in creating programs for courses 
I teach, such as BASIC Programming and Statis¬ 
tics. In addition, other programs help me with 
administrative tasks, such as grading, transcript 
evaluation, teacher scheduling, and attendance. 

However, as a parent of two preschoolers, I 
get the most satisfaction from writing programs 
for them. One such program is "Clues." It is fairly 
simple and can easily be modified for other 
microcomputers. 

The youngster is asked his or her name, fol¬ 
lowed by a series of questions. A correct response 
by my son will yield a flashing message, "OKAY - 
GREAT, KEITH!" For an incorrect response, the 
question will be repeated. For two consecutive 
incorrect responses, the answer will be given and 
a new question will be asked. 

For the Commodore version, the data is listed 
(question first, then answer) from line 700 on up. 
Line 1, the DIM statement, sets a maximum of 
200 questions and answers. You can change this 
as your computer's memory size dictates. The 
program itself counts the number of questions 
and answers. Note the flag in line 1940. 

Modifications 

The program picks the questions at random. How¬ 
ever, you can easily adjust the program so that no 
question is asked more than once by adding a 
new array variable as a flag (a value of 0 indicates 


1 DIM C$(200), CA$<200), FL(200) 
45 IFFL(X%)<>0THEN40 
55 FL(X%) = 1 


As more and more questions are asked, pro¬ 
gram execution time is slowed considerably (as 
the program searcheWor unasked questions). 
However, as long as you've asked less than 90 
percent of your available questions, time delay is 
not a problem. 

The game will continue until the player de¬ 
cides to quit, either by pressing the RETURN key 
in response to a question or by turning off the 
machine. If you made the previous program 
modification, the game can continue until all the 
questions have been asked. You can modify the 
Commodore version of the program to ask a spe¬ 
cific number of questions as follows: 

230 PRINT "HOW MANY QUESTIONS, MAX 
OF ";N 

240 INPUT NQ: IF NQ>N THEN 230 

250 RETURN 

19 FOR 11 = 1 TO NQ 

70 IF A$ = CA$(X%) THEN I = 10:GOSUB 500: 


You can also adjust the level of questions to 
be suitable for a user's educational level. The sub¬ 
routine starting in line 500 of the Commodore 
version, while exciting for a preschooler, might 
not be appropriate for an older child. An alterna¬ 
tive might be to include a number of cute sayings 
and print one at random for a correct response. 
For example, we can replace the subroutine with: 




500 Z = INT(3*RND(TI) +1) 

510 ON Z GOSUB 520,530,540 

515 FOR I = 1 TO 1000: NEXT 

519 PRINT "CLR": RETURN 

525 RETURN 

530 PRINT ' BET YOU CAN'T DO IT AGAIN" 

535 RETURN 

540 PRINT "BOY, ARE YOU LUCKY TODAY!" 

545 RETURN 

Also, Clues can be a good teaching tool: you 
can store a few hundred questions and using the 
modifications, generate a 10-25 question quiz. No 
two students would have the same quiz. 


BEFORE TYPING... 

If you're new to computing, please read “How 
To Type COMPUTERS Programs" and “A 
Beginner's Guide To Typing In Programs." 


Program 1: Clues-TI Version 

90 RESTORE 
100 RANDOMIZE 


9 CALL CLEAR 
9 CALL SCREEN(5) 


Program 2: 

Clues — For All Commodore Computers 

1 DIM C$(200), CA$ (200) 

10 X= RND(-TI) 


PRINT ”tCLR}OI 


PRINT:PRINTC$(X? 
PRINT:INPUT A? 
i= CA$(X%) THEN I 


IP 1=1 THEN PRINT:PRINT"N 

0 IF I = 2 THEN PRINT"NO, ";N$;", 
ORRECT ANSWER":PRINT"WAS CA$( 


E CORRECT ANSWER V 


220 NEXT 
230 RETURN 

505 PRINT"{CLR}"{2 SPACES}: FOR J = 

3 PRINT" [12 DOWN} [10 RIGHT}OKAY— 
";N$ 

J = 1 TO100:NEXT J 
NT"[CLR}{7 DOWN}" 





AARDVARK L.T.D. 

TRS-80 COLOR COMMODORE 64 VIC-20 SINCLAIR/TIMEX TI99/4A 










940 DATA HOW MANY FINGERS DO YOU HAVE? 

950 DATA TEN 

1940 DATAl3 SPACES}END 


Program 3: 

Clues - Program Adjustment For VIC Version 

Change this line of the Commodore version for use with 


510 PRINT "{10 DOWN}{2 RIGHT}OKAY—GREAT 


COMPUTE! 

The Resource. 


orC 

J§ 

~ iBiBi 

JOYSTICK! %wmwTe»rm 

High-resolution pictures mWW WBm 

with print out to VIC printer. |t’ s here! UPLOAD/DOWNLOAD 

Put your hands on creativity with software for the VIC & ‘64! 

‘64 S Draw nanow^wide lines^ Enjoy the power of file transfer under 

curvy or straight, create popular protocols; SAVE files to disk or 

background patterns erase tape ; EDIT; DUMP to VIC printers or 

tTons ak to S i' GreaMo^’araphsand parallel printers (with Smart ASCII); 

pte^charts. SAVE* youTcreations supports UPPER/lowercase text, 

to tape or disk, and print a hi-rez standard ASCII, and control characters. 

‘64 Panorama_$29.95 

VIC-PIcs.$29.95 

. r. /SftiMSLVsh cassette, transferable to disk. When you 

!: need professional caliber modem 

: E 'software, think SuperTerm. 

Also available: Terminal-40, the top-rated VIC telecommunications program. 
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Gold Miner For TI-99/4A 

James Dunn 


Dig your way into the Lost Mine and search for gold in 
this exciting TI-99/4A translation of a game first pub¬ 
lished in COMPUTE!, July 1982. 


"Gold Miner" will run in TI BASIC, using about 
5K. It won't run in Extended BASIC because of 
the character definition using ASCII 144 and 

Most of the program was translated quite 
easily from Joseph Weber's original VIC-20 version 
except for formatting the display of the score and 
the charges. Extended BASIC contains commands 
to display at any position on the screen. But TI 
BASIC will print only at the bottom of the screen, 
which scrolls the whole display up. Since I wanted 
this program to run in TI BASIC, I had to use string 
manipulation to format the score and charges 
using their ASCII representations. Then, using 
HCHAR, printing at specific screen locations was 
possible without disturbing the rest of the display 
(see lines 1450-1640). 

The only other modification is to the main 
character. I designed a small pick-ax to represent 
the miner, and animated it, so it would seem to 
chop its way into the mine. This is done in the 
main loop, lines 640 - 660, and slows execution 
only slightly. But it doesn't matter in this game 
because speed is unimportant. In fact, you can 
walk away from the game, come back an hour 



later, and take up where you left off. 

One other point: You must hold down the 
key, joystick, or fire button until the program 
calls the routine to read the input. It makes the 
joystick a bit awkward, but this doesn't affect the 
game because reflex time is unimportant with 
"Gold Miner." 


BEFORE TYPING... 

If you're new to computing, please read "How 
To Type COMPUTE !'s Programs" and "A 
Beginner's Guide To Typing In Programs." 


Gold Miner For TI-99/4A 



430 CALL GCHAR( B , A , Q > 
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FRIENDS OF THE TURTLE 


Davy D. Thornburg, Associate Editor 



Travels With TOPO 

The San Diego CUE (Computer Using Educators) 
conference was one speaking engagement I looked 
forward to with eager anticipation. My talk .was 
on the use of robots in the classroom, and 
Androbot's TOPO was my star attraction. (If you 
don't know about TOPO, see the "Friends of the 
Turtle" and "Computers and Society" columns in 
the May 1983 issue of COMPUTE!.) Since I like to 
travel light, I had arranged for TOPO to be sent 
ahead of me to the hotel. 

A few hours before my scheduled departure, 

I found that TOPO was not going to be delivered 
as scheduled and that it had to travel on the plane 
with me. 

My frantic call to the airline went something 
like this: 

"PSA reservations. May I help you?" 

"Yes, I need another round-trip ticket be¬ 
tween San Jose and San Diego." 

"Of course, and the passenger's last name, 

"TOPO." 

"Fine, his first name please?" 

I paused. What was his first name? 

"Uh, Peter." 

"Thank you. Is Peter a child?" 

"Uh, Peter is under six." 

"Excellent! He can travel for half fare." 

"Good. Oh, by the way, there is something I 
think you should know." 

"What's that?" 

"Uh, Peter isn't human." 

This time it was the agent who paused. 

"Is it a dog?" 

"No, it's a robot." 

"A robot! How exciting! I'll make sure the 
airport personnel know to expect him." 

And thus began an adventure that will be 
commonplace in a few years - taking the domestic 
robot on a trip. 

We arrived at the airport with time to spare, 
picked up TOPO's ticket, and went through X-ray 
without a hitch. The response of other passengers 
was quite varied. One woman looked at TOPO, 


clasped her hands, and said, "I think I'm in love!" 
A four-year-old moppet named Alison ap¬ 
proached TOPO with hesitation, but by the end 
of the trip she and TOPO were great friends. 

The stewardess asked what TOPO would 
like to drink. 

"WD-40 on the rocks," I replied. 

Although TOPO was the subject of much 
attention, one can envision such scenes becoming 
commonplace in the not too distant future. And 
as domestic robots become more common, soft¬ 
ware will be developed to make them more useful. 
Today, TOPO is a tremendously valuable tool for 
education. By controlling TOPO through Logo's 
turtle graphics commands, children become 
highly motivated to learn programming. In the 
future we can expect ever more sophisticated 
programs to be developed around practical 
applications. 

Whether TOPO or its offspring vacuum car¬ 
pets, mow the lawn, watch the kids, or help carry 
groceries, it is clear to me that domestic robots 
will soon become as common as personal com¬ 
puters. As a result, we can expect the airlines to 
offer special seating (robot class?) in which our 
mechanical companions can travel together, 
perhaps getting recharged during their travel 
time. When this happens, we will know that the 
age of robotics has arrived. 

Notes From All Over 

The use of Logo with children has been the subject 
of university research since the language was 
developed. Dennis Harper at the University of 
California at Santa Barbara has a research project 
with a new twist. He is embarking on a special 
project in Papua, New Guinea, to teach PILOT 
and Logo to teachers. With the assistance of the 
government of New Guinea and the use of equip¬ 
ment supplied by Atari, Dennis will be studying 
the use of Atari PILOT and Logo by teachers who 
have, in many cases, only elementary educations 
themselves. The fact that some of these teachers 
will not have seen a television before should make 
their response to turtle graphics quite interesting. 



Mr. Harper has quite a few objectives to 
accomplish during this project. He will be dem¬ 
onstrating existing computer-aided instructional 
materials, and will then let the teachers learn both 
Logo and PILOT. He hopes to see what effect the 
computer will have on positive attitudes toward 
technology, increased literacy, teacher training, 
effectiveness in teaching, the dropout rate, the 
overproduction of humanities graduates, indi¬ 
genous research and development efforts, and 
discrimination in primary schools. 

In his research proposal Mr. Harper states: 

Whether or not logical thinking among 
the students will increase by learning pro¬ 
gramming will be part of these observations. 
Although such gains are assumed almost as 
a cultural truism, there is a paucity of re¬ 
search either supporting or not justifying 
that hypothesis. The lack of empirical testing 
of cognitive gains following computer 
training is understandable and results from 
the fact that much research dealing with 
Logo has been constrained until recently 
by expensive hardware and small, non- 

I expect that Dennis will have some inter¬ 
esting observations to share with us, and look 
forward to hearing reports from the field. 

Chuck E. Cheese Learns Logo 

I dropped into my local Pizza Time Theater last 
night and was quite pleasantly surprised to see a 
half-dozen Apple computers being used to teach 
Logo to members of the Pizza Time Theater com¬ 
puter club. This step-up from the arcade games 
comes as a pleasant rejoinder to those who claim 
that such places have no redeeming social value. I 
haven't found out if this is a purely local phenome¬ 
non, but I endorse the idea of locating computer 
clubs in pizza parlors and arcades and would like 
to hear from those of you who have seen or used 
such facilities in your area. 

A Final Note 

Some of you may have guessed that I am a tech¬ 
nology junkie. Well, you are right. I have com¬ 
posed this entire column on a word processor 
that sits on my lap as I rest under a tree in the 
middle of a park. I have been using the Radio 
Shack Model 100 computer, and it has been work¬ 
ing beautifully. I may write a review on it for the 
next issue. Meanwhile, keep those cards and let¬ 
ters coming. 



a $ 39 9S Light Pen 


i for • COMMODORE VIC 20/64 

| • ATARI 400/800 

1 • APPLE II 

1 Now you can make your computer come alive 
i and free yourself of many keyboard strokes. 

1 Touch my light pen to your TV screen and 
draw or paint multicolored pictures or pick 
from a menu. It’s that easy! 

My LP-10 low cost, no switch light pen is 
active at all times. 

My LP-15 high resolution, high speed light pen 
has a push switch to activate the signal. It is 
supersensitive and can control the curser 6 
inches from the screen. 

LP-10 ... $39.95 LP-15 ... $119.95 
Interface card required for Apple II with 
LP-10& LP-15... $99.95 
All Light Pens are sold complete with 
Demo Cassettes & — 


TECH-SKETCH me. 

26 Just Road • Fairfield, NJ. 07006 

: □_LP-10 Light Pens @ $39:95 

□ Apple II interface Cafds @ $99.95 

For my □ Commodore 20/64 □ Atari 400/800 □ Apple II 

Enclosed my check for $-(allow 3 weeks) 

Bill my □ VISA □ Master Card 
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Learning With Computers _ 

Glenn M Kleiman 

After The Basics 
Of BASIC... 


One of the questions I'm often asked is: "What do 
I do after I've learned the basics of BASIC?" Many 
people have taken introductory classes or read 
books about BASIC programming. They have 
mastered using PRINT, INPUT, GOTO, FOR- 
NEXT, IF-THEN, and other commands of the 
BASIC language and have written some simple 
programs. These introductions to BASIC help 
people gain a better understanding of computers 
and the nature of programming. However, they 
are not sufficient for learning to write the types of 
programs most people want to use. It's a lot like 
learning a foreign language: learning some of the 
vocabulary and grammar in school or from a book 
does not make you a fluent speaker of the lan¬ 
guage. 

Humanized Programs 

In this month's column, let's examine two books 
designed to help you become fluent in BASIC. 
Both books are for people who already know the 
fundamentals and want to learn more, and both 
teach you to develop well-structured, easy-to-use 
programs. These books are designed to be read 
while you work at the computer - the only way to 
learn a language, whether a human language or a 
computer language, is to practice using it. 

Apple Backpack: Humanized Programming in 
BASIC, by Scot Kamins and Mitchell Waite. Byte 
Books, 1982, $14.95. 

This book aims to help you learn to write 
humanized programs - the authors' term for what 
others call "user-friendly programs." Humanized 
or user-friendly programs make the computer 
adapt to the people who use it, rather than force 
the people to adapt to the computer. Humanized 
programs provide easy-to-understand screen 
displays and clear instructions. They give prompts 
when users are to enter responses and let users 
correct or change responses. They wait until users 


signal they are ready to proceed, and provide 
help if users become confused or forget some of 
the instructions. 

After a brief introduction about humanized 
programming, Apple Backpack contains four chap¬ 
ters which explain many of the techniques for 
creating well-designed programs. Each chapter 
starts with simple components of programs and 
gradually builds more complex and powerful 
routines. Although the examples are written in 
Applesoft BASIC, they are all easily modified for 
other versions of BASIC, and the authors are care¬ 
ful to point out when they use commands that are 
idiosyncratic to Applesoft. Therefore, this book 
will also be useful to those who are using Com¬ 
modore, TRS-80, Atari, and other computers. 

Chapter 1 shows how to create well-formatted 
screen displays. It begins with algorithms for cen¬ 
tering and right justifying text and for drawing 
borders. It then proceeds to more sophisticated 
routines. These include an "anti-splitting" routine 
for formatting text so that words are not split be¬ 
tween lines, a routine which presents long sections 
of text, one screen-full at a time, and routines for 
formatting numbers into columns. 

Chapter 2 is about "crashproofing" pro¬ 
grams - designing them so that they behave 
reasonably when users give unexpected re¬ 
sponses. This chapter shows how to create pro¬ 
grams which check for incorrect input - a number 
when a letter is expected or vice versa, too large 
or small a number, a name with too many letters, 
a response that begins with a space, or one of the 
many other possibilities that can wreak havoc on 
programs that are not crashproofed. 

Chapter 3 shows how to write programs 
which let users check and change information 
they have entered. It covers programming to allow 
users to make immediate corrections and to make 
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changes after all the information has been entered 
and processed. 

Chapter 4 covers providing directions and 
helpful information on the computer screen. It 
describes the need for clear instructions within 
the program and the value of providing prompts 
when people are to enter information. It also 
covers techniques for making extra help available 
when the user presses a special key. 

These four chapters on programming provide 
an excellent blend of general discussion, examples 
of programming routines and complete modules, 
and very clear, line-by-line explanations of how 
each program works. While you can simply plug 
the provided modules into your own programs, 
the authors' main aim is to help you understand 
the modules presented and learn to create your 

There is a fifth chapter which is not about 
programming at all, but about principles of writing 
good documentation. This chapter discusses both 
tutorials which help beginners get started and 
reference aids which serve as reminders for those 
who have learned to use the program. 

The appendix contains two complete pro¬ 
grams, a States and Capitals educational game 
and an Electronic Phone pad for storing and re¬ 
trieving telephone messages. These programs 
demonstrate how the modules discussed in Chap¬ 
ters 1 through 4 can be combined into useful, 
humanized programs. Each program has complete 
written instructions which demonstrate the prin¬ 
ciples in Chapter 5. 

Apple Backpack is a valuable guide for anyone 
who has mastered the fundamentals of BASIC 
and wants to become a fluent user of the language. 
It is at the right level for those who have been 
introduced to the BASIC commands and written 
a short program or two. Careful study of this book 
will help novice programmers advance a long 
way toward creating their own sophisticated, 
humanized programs. 

Graphics And Sound 

Techniques for Creating Golden Delicious Games for 
the Apple Computer, by Howard M. Franklin, 
Joanne Koltnow, and Leroy Finkel. John Wiley & 
Sons, Inc., 1982, $12.95. 

This book focuses on programming the 
graphics and sounds that are such an important 
part of computer games. Its philosophy is similar 
to Apple Backpack in that it explores principles of 
good program design and coding, example pro¬ 
gram modules, and actual programs. However, 
the sound and graphics programming examples 
are unique to Applesoft BASIC, so this book is 
only for those who are programming Apple 
computers. 

Entering many of the programming examples 


requires a great deal of typing and, of course, 
everything has to be exactly correct. Fortunately, 
a set of two disks containing all the routines is 
available from the publisher for $34.95. 

The first of the seven chapters covers musical 
notes and sounds. It begins with simple routines 
which use the "bell" sound built into the Apple. 
On the Apple, more sophisticated sounds require 
a machine language routine. The authors provide 
a suitable one to be used as a musical "black 
box" - you are told how to use it, but not how it 
works. Since the book is about BASIC, but a 
machine language routine is required to play mu¬ 
sical notes on the Apple, this is a good approach. 

Several interesting programs make use of the 
black box. One plays simple tunes, another turns 
the Apple into a toy piano in which each key plays 
a different note, and a third lets you experiment 
with different sound effects. The sound effect 
program can be valuable for developing sounds 
to fit your games. 

Chapter 2 introduces the fundamental com¬ 
mands for using low resolution color graphics. 
Chapter 3 offers an image module which lets you 
display low resolution images on the screen in 
any position and color. It also provides a set of 
uppercase letters and numbers created with low 
resolution graphics. In addition, this chapter ex¬ 
plains how to design new images and incorporate 
them into the program, and it gives several ex¬ 
ample pictures. 

Chapter 4 is on high resolution graphics. 
More on this chapter later. 

Chapter 5 covers routines for handling data 
entry. A sophisticated, general-purpose input 
module is presented. By using this input sub¬ 
routine within your program and setting certain 
variables, you can control whether the computer 
will accept letters (and the maximum length of 
the response), integer or decimal numbers (even 
setting the lowest and highest acceptable values), 
Y or N only (for yes/no questions), or any single 
keypress. 

The input subroutine also signals when the 
ESC key is pressed, so you can use ESC within 
your programs to let the user ask for help, return 
to an earlier part, quit, or request other special 
functions. This input module is powerful and can 
greatly simplify writing programs requiring dif¬ 
ferent types of responses from the user. It will 
also help you crashproof your programs. 

Chapters 6 and 7 include fully developed 
games which use the modules from Chapters 1, 

2, 3, and 5. The programs include: (1) a story game 
in which the computer asks a series of questions 
and then inserts the answers in a previously 
constructed story format; (2) a nonviolent version 
of the hangman word game; (3) a word-matching 
game; (4) a concentration game which uses 
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matching color patterns; (5) a number-guessing 
game; and (6) a version of the memory game 
Simon. While none of these games will put Pac- 
Man out of business, they are all good examples 
of the types of educational games many people 
could learn to program, and they provide useful 
examples of how to incorporate the modules into 
programs. 

Routine Libraries 

The sound, low resolution graphics, and input 
modules in this book are valuable components 
which can simplify creating many programs. 
These modules, and the discussion in the book, 
encourage people to develop their own libraries 
of general-purpose subroutines and to develop 
well-structured programs. In addition, a great 
deal can be learned by studying how the games 
are programmed and making your own revisions 
and extensions of them. 

Since Golden Delicious Games focuses on sound 
and graphics while Apple Backpack focuses on text 
and number processing, the two books comple¬ 
ment each other very well. In fact, the only way 
they overlap significantly is that both provide 
routines for accepting input. A comparison of the 
similarities and differences of the two input 
routines is interesting in itself, since it lets you 
compare different approaches to the same goal of 
making it easy for people to enter information. 

However, the Golden Delicious Games book 
contains very little discussion of how each module 
works. Also, there isn't an adequate discussion of 
high resolution graphics. The chapter on high 
resolution graphics is by far the shortest one in 
the book, and about one-third of it is spent dis¬ 
cussing the problem of color conflicts on the Apple 
screen. Unfortunately, the simple solutions to 
this problem are never mentioned. We can con¬ 
clude this month's column with an overview of 
hi-res graphics. 

Software For High Resolution Graphics 

There are three general types of software tools for 
using high resolution graphics from Applesoft 
BASIC. One type is high resolution character 
generators, which let you create your own char¬ 
acter sets and display them on the high resolution 
screen. Such sets are useful for combining text 
and pictures, for using characters of different 
sizes and colors, for having non-English alphabets 
in your programs, and for adding lowercase letters 
to the Apple II and 11+ screens. High resolution 
character generators are designed so that the stan¬ 
dard BASIC print command is used to display 
characters from your program. You can also create 
characters of different shapes and combine them 
on the screen to form pictures. By printing, 
erasing, and reprinting these characters, you can 
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even create simple animations. 

The second type of high resolution tool lets 
you create pictures that cover all or part of the 
screen, save them on a disk, and bring them back 
to the screen from your program. Some of these 
tools use commands typed on the keyboard, some 
use joysticks or game paddles, and some use 
graphics tablets. In the November 1982 "Learning 
With Computers" column I reviewed picture- 
creating programs. My focus there was computer 
art, but the pictures created with those tools could 
be easily incorporated into programs. 

The third type of high resolution tool facili¬ 
tates working with shape tables. Shape tables 
save instructions to the computer for re-creating a 
shape you have drawn. Commands in BASIC let 
you place the shape anywhere on the screen, as 
well as change its size, orientation, and color. 
Shape table pictures can be placed over a full screen 
picture and can be used to create animations. 

The following is a list of companies which 
market programs to help you incorporate sophis¬ 
ticated high resolution graphics into your pro¬ 
grams. This list doesn't cover all those available, 
but I have used all the programs listed below, and 
each serves its intended purpose well. With these 
tools, you can program professional quality high- 
resolution graphics. In fact, the High Text and 
Graphics Magician programs listed below are widely 
used in commercial educational programs: 

1. Synergistic Software (522112th Ave. S.E., 
Bellevue, WA 98006) offers High Text, an advanced 
high resolution character generator which lets 
you use characters of different sizes and colors. It 
also produces a good tool, called Higher Graphics, 
for working with shape tables. 

2. Penguin Software (830 4th Ave., Geneva, 

IL 60134) sells the well named Graphics Magician. 

It combines picture creating, shape table, and 
animation capabilities. 

3. Beagle Brothers (4315 Sierra Vista, San 
Diego, CA 92103) has several high resolution 
character generator, picture-creating, and shape 
table programs. 

4. Edu-Soft (P.O. Box 2560, Berkeley, CA 

94702) markets an inexpensive high resolution 
character generator program. © 
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Develop-20 

Tina Halcomb 

Without a knowledge of as¬ 
sembly language, it can be an 
impossible task to turn a great 
idea into a fast, smooth game. 
One solution to the problem is 
Develop-20, a collection of soft¬ 
ware tools designed to help the 
VIC-20 programmer advance 
beyond BASIC. 

Develop-20 consists of an 
Editor, Assembler, Loader, 
Monitor, and Decoder. A similar 
collection, Develop-64, is available 
for the Commodore 64. 

An informative guide is 
included with the package. If 
you are not already acquainted 
with 6502 assembly language, 
you will find this guide a very 
good introduction. It describes 
the architecture and functions of 
the 6502 chip from a user's view¬ 
point. The definitions and exam¬ 
ples clearly explain the use of 
the addressing modes, register 
set, and instruction set. 

The Editor 

The original (Source) programs 
are created and modified with 
the Editor program. As you enter 
your program, it checks the va¬ 
lidity of the mnemonics> and 
checks to see if the correct ad¬ 
dressing modes are being used 
with respect to the mnemonics. 

When you run the Editor, 
you will see a CPLDIMS prompt. 
You can then choose one of the 
seven functions of the Editor 
program. C is the create mode, 
used to enter new programs. P 
prints a listing of the program to 
the screen. L loads a program on 


cassette or disk into memory. S 
saves the source file in memory 
to cassette or disk. The editing 
capabilities of the Editor program 
are limited to D, which deletes 
lines; I, which inserts lines; and 
M, which lets you modify any 
line. Modifications can be made 
only one line at a time. 

There are two unusual as¬ 
pects to this Editor. When you 
use zero-page addressing, you 
must identify the address with a 
left arrow. 

STAe-$oo 

Most assemblers are capable 
of determining that you intend 
zero-page addressing if the 
specified address is in zero page 
($00-$FF). 

Also, during program entry, 
there is no space allowed be¬ 
tween the opcode field and the 
operand field. However, once 
each line of the program is en¬ 
tered and you press RETURN, 
the line is displayed in the stan¬ 
dard 6502 assembly format with 
one space between each field. 

In an unexpanded VIC, you 
can write programs with up to 
89 statements. With any size 
memory expansion, the program 
size can increase by 50-75 state¬ 
ments per K of memory. 

Assembling The Program 

To translate your source program 
into executable machine (object) 
language, it must be loaded in 
with the Assembler program, 
assembled, and saved as an ob¬ 
ject file. The actual saving process 
is identical to that of the Editor 
program. You must remember 
that the two output files are dif¬ 
ferent. The source is saved like 
any other text file, and the object 
is saved as a binary file. A distin¬ 


guishing extension for the file 
name is not automatic. Perhaps 
setting a standard of extensions 
like a .BIN or .OBJ for binary 
object files and .TXT of .SRC for 
the text source files will make it 
easier for you to identify them. 

Due to the limited amount 
of memory, the programs are 
assembled to a file on disk or 
cassette instead of directly into 
memory. In order to run the 
object code that you have just 
created with the Assembler pro¬ 
gram, you must save the object 
file and load it back into memory 
with the Loader program. 

RUN In Single Steps 

The Monitor is a very useful tool 
for debugging your software. It 
allows you to load your program 
and run it in single steps (one 
instruction at a time). As each 
instruction is executed, the in¬ 
struction is displayed along with 
the status of all registers. This 
allows those just learning the 
language to watch what happens 
in each register and what 
changes occur in the status re¬ 
gister (the flags) as a program 

The fifth tool of this package 
is the Decoder, which is a disas¬ 
sembler. This program takes 
machine language (executable 
object files) and translates them 
back into source files (mnemon¬ 
ics). The program produced by 
the Decoder will only resemble 
the original source program be¬ 
cause it does not produce labels. 
For example, in a loop, instead 
of seeing branches to labels, 
you will see jumps to absolute 
addresses. 

What would a game pro¬ 
grammer's tool kit be without 






graphics tools? The manual in¬ 
cludes information concerning 
screen and character manage¬ 
ment, color modes, joystick con¬ 
trollers, and sound and musical 

This collection of software 
tools is an effective, reasonably 
priced way to develop your 
machine language ideas into 
working VIC programs. 
Develop-20 
French Silk Smoothware 
P.O. Box 207 
Cannon Falls, MN 55009 
$49.95 © 


Astro Chase 



Astro Chase, by Fernando Herr¬ 
era, is a lively space-action game 
with impressive graphics and 
sound. Written for Atari, it con¬ 
tains several innovative features 
that distinguish it from others 
on the market. 

The object of the game is to 
defend Earth from aliens of the 
Megard Empire. The playfield, 
which is a two-dimensional 
(map-style) depiction of the 
galaxy, is several times larger 
than the area visible on the 
screen. As you move your ship - 
Earth's sole defender - toward 
the edges of the screen, the back¬ 
ground scrolls to reveal other 
portions of the galaxy. You can't 
visit the entire galaxy, however. 
The Megardians have thrown up 
an invisible force field that keeps 
you in the vicinity of Earth. 

That 7 s just as well, for to 
succeed at Astro Chase, it's best 
to cruise near Earth, intercepting 
the robot-like Mega Mines as 
they move in. If one of the mines 
reaches the home planet, the 
result is a spectacular, game¬ 
ending explosion. 

The Mega Mines have only 
one objective: to reach Earth. 
They never deviate from their 
path and cannot attack your 
ship, but the attack fighters can 
and will. As you advance to the 
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higher levels, the fighters be¬ 
come more numerous and wield 
more impressive power. Some 
of them try to ram your ship; 
others fire lasers; some can even 
pass through planets in their 
relentless search for your craft. 

If you spend too much time going 
after the fighters, the Mega 
Mines will surely get through. 

Maneuvering Hints 

One of the most challenging 
aspects of the game is learning 
to control your spaceship. You 
can set your course, then aim 
and fire your lasers indepen¬ 
dently - all with the joystick and 
fire button. The result is a very 
versatile craft, but one that's 
difficult for beginners to handle. 
The secret is that when the fire 
button is depressed, the joystick 
controls the direction of the 
lasers. When the fire button is 
up, the joystick controls the ship. 
It sounds simple, but practice is 
required. 

If you bump into a planet or 
the force field, you'll bounce 
back - perhaps adding to the 
confusion until you get the hang 
of maneuvering the ship. 
Another pitfall is the hot stars. 
These are bright stars scattered 
around the galaxy. If you run 
into one, you'll be stopped until 
you back up and go around. 
Running into either the hot stars 
or the force field drains energy 
from your ship, as does moving 
and firing lasers. You can re¬ 
charge your energy by flying 
back and forth over one of the 
four energy generators. There's 
one at each corner of the square 
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BIGGER IS NOT ALWAYS BETTER! 


Higher cost doesn't promise better software. 

All across America, and around the world, people are becoming computer literate: both in use and 
purchase of a personal, home or small business computer. People are finding that more expensive com¬ 
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Space Station / For The Tl 


Tony Roberts,.Assistant Managing Editor 

Space Station I mixes the sprite 
movement and sound abilities of 
the TI-99/4A with an interesting 
space-attack scenario to produce 
a fluid and challenging arcade- 
quality game. 

The program, available on 
disk or cassette from Data Force, 
requires that your TI be equipped 
with Extended BASIC and extra 
memory. 

The action takes place in the 
year 2020. An invisible alien 
force has attacked and defeated 
a secret military outpost orbiting 
Saturn, and has turned its atten¬ 
tion to Earth, which you must 
defend. The battle at Saturn, 
however, took its toll on the 
alien force, weakening its fire¬ 
power, damaging its tactical 
computers, and making its 
drones visible 99 percent of the 

Once the battle began, the 
Saturn outpost lasted only 34 
seconds, but during that time, 
the station's tactical defense com¬ 
puter was able to transmit infor¬ 
mation back to Earth. The com¬ 
puter's report, which is printed 
in the instruction pamphlet, 
includes dues for developing 
the strategy you'll need to stave 
off the attackers. 

Watch Battle On 
Scanner 

On your scanner screen, you see 
Space Station I, orbiting quietly. 
Two green boxes are drawn 
around it. Press ENTER, and the 
sprite display begins. The alien 
drones, attacking in groups of 
three, swoop in; misguided mis¬ 
siles and bombs fly past; an 
orange alien command ship may 
appear from out of nowhere. 

Using the keyboard or a 
joystick, you bring your target 
beam into play. Place it over an 
alien ship or missile and fire a 
torpedo. The torpedo, which is 


released from the bottom of the 
screen, flies to the point desig¬ 
nated by the target beam and 
detonates. The beam can be 
moved to a new target before 
the first torpedo detonates. 

Most of the alien missiles 
are harmless. Those released by 
the drone ships or the command 
ship, however, are not. Your 
main concern is stopping the 
drones. They attack in groups of 
three, and sometimes hide off 
the edges of the screen. You'll 
learn to listen for the characteris¬ 
tic sound that tells you the 
drones are nearby. 

The drones will fire only 
from within the inner green 
boundary, and once a missile is 



to zero in on the aliens in Space 
Station X. 


fired, the drones are helpless 
until the missile hits Space Sta¬ 
tion I or flies past the boundary 
area. If a missile is off course, it 
is best to attack the drones while 
they are helpless, then drop 
back on defense. Your station 
can survive five hits before the 
game ends. 

The Command Ship 

Your other concern, the com¬ 
mand ship, has neither lost its 
invisibility nor its long-range 
firing ability. It must become 
visible to launch an attack, but 
after it fires, it disappears again. 
The command ship's foghorn¬ 
like sound, however, is its weak¬ 


ness. Vyhen you hear it coming, 
search for it with your targeting 
beam (you'll see its shadow if 
you find it), and fire. 

Space Station I starts out 
rather slowly, giving you a 
chance to find your way around. 
But with each 10,000 points you 
accumulate, the aliens step up 
the attack. If you manage to ac¬ 
cumulate 100,000 points, your 
hit counter will be reset to one, 
giving you four chances to play 
at high speed. 

To play the game success¬ 
fully, you'll have to develop a 
sound strategy, and you'll have 
to be capable of reacting to as¬ 
saults from all parts of the screen. 
IFs quite a challenge. 

Space Station I 
Data Force Incorporated 
10 S. 312 Hampshire Lane East 
Hinsdale, IL 60521 
(312)323-0179 

$34.95 © 


Calc Result 

August Schau 

"Spreadsheet" programs have 
proven to be among the most 
popular software for microcom¬ 
puters over the past several 
years. Essentially, a spreadsheet 
is a specialized language - com¬ 
plete with rules and commands - 
designed to help with simula¬ 
tions and modeling. They let 
you set up complex arrays of 
interrelated information and 
then, by changing one aspect of 
the model, you can watch the 
effects throughout the entire 
structure. Spreadsheets are espe¬ 
cially useful in analyzing 
budgets, finance, and other sys¬ 
tems which are based upon 
mathematical relationships. 

Calc Result is a spreadsheet 
program for the Commodore 64. 
It organizes information on a 
grid made up of 63 columns 
labeled A-BK, by 254 rows. Indi¬ 
vidual cells within the grid are 
identified by referring to the 
column and row that intersect at 





















the cell location. For example, 
the cell located at the intersection 
of column M and row 19 has 
coordinates M19. One 63 by 254 
matrix of cells is called a page, 
and a Calc Result file can contain 
up to 32 pages. 

Calc Result will store data in 
these cells as labels or values. 
Labels are descriptive text, and 
values are numbers that can be 
entered directly or calculated 
according to a formula that is 
stored in the cell. The program 
assumes that a value or formula 
is being input, and unless told 
otherwise it will not allow a label 
to be entered as a value. By re¬ 
ferring to the coordinates of other 
cells, the program can incorpo¬ 
rate their present values into a 
formula. Formulas operate ac¬ 
cording to normal mathematical 
laws and may include 
trigonometric functions. 

When the value in a cell is 
changed, the values in all cells 
containing formulas that refer to 
the changed value are automati¬ 
cally recalculated. All formulas 
are protected so that a value 
cannot be entered and replace 
the formula in the cell. If this 
occurred, future recalculations 
would be affected. This protec¬ 
tion can be removed so that for¬ 
mulas can be edited. 

Special Functions 

Formulas including special func¬ 
tions such as MEAN can be used 
instead of the lengthy formula 
that would otherwise be neces¬ 
sary to find the average of the 
values from a large number of 
cells. Other functions can search 
through a specified group of 
cells and locate the largest or 
smallest value within these cells. 

The IF-THEN.. .ELSE func¬ 
tion allows a formula to take one 
of two forms depending on 
whether a predefined condition 
has been met. For example, the 
formula can test the value in a 
cell, multiply the value by 3 per¬ 
cent if the number falls below 
$250 or multiply by 6 percent if 
the value is $250 or greater. 


The three-part manual, 
bound in a 7-by-9-inch ring bin¬ 
der, uses color-coded pages for 
easy identification. Part one con¬ 
tains instructions for the initial 
start-up and preparation of pro¬ 
gram and data disks. The master 
disk prompts the user through 
the creation of a program disk. 

In the process, information is 
entered about the printer and 
number of disk drives. 

English is selected for the 
help screens from the eight lan¬ 
guages available, and colors are 
selected for the border, back¬ 
ground, and foreground. The 
newly created program disk is 
used to create a data disk for use 
with dual disk drive setups. 

Part two is a five-lesson 
tutorial that introduces the user 
to Calc Result. The instructions 
are keystroke by keystroke at 
the beginning, but in subsequent 
lessons, the instructions become 
less specific. During a lesson 
you can check your progress 
against the numerous color 
illustrations. The values in key 
cells are also given as a self¬ 
check. 

Part three is a reference con¬ 
taining descriptions of all of Calc 
Result's commands and func¬ 
tions. In my copy of the manual, 
I have inserted a divider at the 
beginning of this section for 
quick access to the reference 

Help Always At Hand 

Calc Result contains a series of 
help screens to replace the pocket 
reference cards that often come 
with software packages. When 
the system commands are ac¬ 
cessed with the F7 key, you are 
prompted across the top of the 
screen with the symbols of the 
available commands. If you do 
not recall what each symbol 
stands for, the F5 key will display 
a list of the symbols and the 
commands they represent along 
with a brief explanation of the 
command. 

The desired symbol can be 
entered directly from the help 


The help screens, which 
operate quickly and efficiently 
with only a momentary inter¬ 
ruption in the operation of the 
program, eliminate the need for 
repeated use of the reference 
manual. 

Duplicating Pages 

Once labels and formulas have 
been entered on a page, the page 
can be used to create additional 
pages with the identical format. 
Labels and formulas will be 
transferred to the new pages. 
The newly created pages can be 
called to the screen and titled so 
they are easier to tell apart. 

The values from each cell of 
an individual page can be added 
to the values in the correspond¬ 
ing cells of other pages. These 
sums are placed in correspond¬ 
ing cells on page 32. When pages 
are added in this fashion, the 
cells on page 32 will have for¬ 
mulas identical to the individual 
pages, and the summary page 
will have the same recalculation 
power. Pages also can be added 
so that the values of the corres¬ 
ponding cells are added without 
carrying the formulas to the sum¬ 
mary page. 

The addition function would 
support the design of an annual 
budget that accepts monthly 
data and provides an end-of-year 
summary. 

When Calc Result files are 
called up from the data disk, all 
of the pages are temporarily 
stored in a work area on the pro¬ 
gram disk. With a single disk 
drive, files must be saved on the 
program disk since data stored 
in files can be brought into in¬ 
ternal memory only via the work 

Two pages at a time can be 
loaded into the computer's inter¬ 
nal memory, where data is en¬ 
tered onto the page and calcula¬ 
tions made. Either of the pages 
currently stored in internal mem¬ 
ory can be worked on by calling 
it to the screen. If a third page is 
called up, the page currently 
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displayed on the screen is moved 
to the work area to make room. 

Impressive Split-Screen 
And Plotting Capability 

Splitting the screen horizontally 
or vertically allows you to view 
two pages. The cursor can cross 
the boundary between pages to 
operate on the individual pages. 
To view additional pages, a win¬ 
dow can be created in one of the 
sections. The area to remain 
outside of the window must be 
formatted and scrolled to the 
desired position before the win¬ 
dow is created because the cursor 
cannot leave the bounds of the 
window. The screen area inside 
the window can then be split, 
and a third and fourth page can 
be called into the window area. 

A graphics function pre¬ 
pares a histogram of the values 
from any column or row. The 
procedure is simple and the re¬ 
sults are impressive. Place the 
cursor in the row or column de¬ 
sired and select the graphics 
function. Enter column or row 
depending on the graph desired, 
enter the lower and upper limits 
of the scale to be used on the 
chart, and type in a title. 

A full-screen chart con¬ 
taining eight bars is created with 
a labeled scale along the left mar¬ 
gin. The chart can be scrolled 
left and right with the cursor 
keys to display the bars for the 
entire column or row. 

The portion of the chart 
displayed on the screen can be 
printed. 

I have used another spread¬ 
sheet program with a Commo¬ 
dore 8032 to introduce this type 
of computing to my data pro¬ 
cessing students. Calc Result 
compares quite favorably with 
the other program and includes 
additional features such as color, 
graphics, and multiple pages. I 
highly recommend it. 

Calc Result 

Computer Marketing Services, Inc. 

300 W. Marlton Pike 
Cherry Hill, NJ 08002 
$149.95 © 


Atari Airstrike 

The creators of Airstrike warn 
you in their advertisements that 
Airstrike is "very, very difficult" 
and that it is "The definitive, 
super-fast, multiple-skill, shoot¬ 
out game for Atari 400/800...." 
This warning is the last mercy 
the game designers do for you. 
Airstrike turns you into the 
"Rocky" of game players; it 
keeps knocking you down and 
you keep coming back for more. 

At first glance, Airstrike ap¬ 
pears to be little more than a 
typical see 'em and shoot 'em 
arcade-style game. Like Scrambler 
and Cosmic Avenger, Airstrike 
puts the player in the cockpit of 
a fighter bomber and sends him 
careening across the screen, 
firing at anything that moves. 
Surface to air missiles must be 
destroyed before they destroy 
you. Like Caverns of Mars turned 
on its side, Airstrike forces you to 
navigate through a field of fission 
bombs that move randomly up 
and down the display screen. 
Unlike other games, however, 
Airstrike takes these ideas one 
step further, moving them from 
the realm of the difficult to the 
almost impossible. And Airstrike 
throws in more than a few origi¬ 
nal ideas and variations of its 


Quark Bombs 

When play begins, the player is 
given three Mark V fighter bomb¬ 
ers capable of one-way flight 
(though it can be jockeyed up 
and down) and armed with both 
a laser cannon and quark bombs. 
The cannon is front-mounted 
and is controlled by the fire but¬ 
ton on the joystick, the shot 
traveling horizontally; the 
bombs, controlled by the space 
bar, arch out of the vessel, drop¬ 
ping on targets below. 

Several things should be 
mentioned concerning the 
weapons. Unlike other games. 


pressing, the fire button does not 
fire the cannon while simultane¬ 
ously releasing a bomb. What 
this means is that the player 
who typically keeps both hands 
on the joystick must adjust to 
the necessity of freeing one hand 
to drop bombs. Also, because 
the bombs arch away from the 
ship, timing becomes a bit more 
precise. And it is crucial that the 
space bar be completely de¬ 
pressed or the bomb will not be 
released, and the amount of 
ammunition you have is limited. 

On the easiest of the five 
levels, you begin with 10 quark 
bombs and 40 shots in the laser 
cannon. You cannot simply fire 
shot after shot and release bomb 
after bomb. Accuracy becomes 
essential to completing a mission 
and achieving a good score. Ac¬ 
tually, the destruction of most 
ships will be the direct result of 
having missed a shot. This is 
due, for the most part, to the 
fact that successful play occurs 
after the player has established a 
pattern of sorts and fallen into a 
rhythm. Missing a crucial shot 
upsets the pattern and disrupts 
that rhythm, and then another 
Mark V goes up in a nicely done 
graphic explosion. 

Incidentally, though you 
begin the mission with a limited 
amount of fire power, you can 
gain extra missiles and bombs 
by destroying ammo dumps. 
(Don't miss the last ammo dump 
before entering the meteor 
shower; that's almost certain 
doom.) 

Several Screens 

To complete one full mission, 
you must traverse a number of 
screens. The first two screens 
are made up of basic mountain- 
type terrain. These ranges are 
defended by surface to air mis¬ 
siles and fission bombs, the latter 
of which are really nasty because 
of their erratic movement. 

Once you're past the moun¬ 
tain ranges, the next display 
forces you to navigate across an 
entire screen of descending 
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meteors whose slightest touch 
spells instant extinction. The 
meteor shower looks suspi¬ 
ciously like a lot of fission bombs 
raining down upon your ship, 
but in any case, this screen is no 
easier than the first two. 

Assuming you pass safely 
through the meteors, you ap¬ 
proach a series of sliding airlocks 
which must be blown open 
(achieved by hitting an area 
about the size of a pinhead - 
while it's moving) in order to 
complete your first pass. And 
did I mention that all the airlocks 
after the first are guarded by 
alien ships that must be circum¬ 
vented in order to survive? Or 
that the locks are in various posi¬ 
tions on the screen and not a 
straight shot so joystick maneu¬ 
vering is a must? Very, very diffi¬ 
cult, and this is level one. 

If there's anything after this, 

I wouldn't know because I've 
never made it through a complete 
pass. The instructions indicate 
that once through the sliding air¬ 
locks, the player proceeds to the 
next color-coded level at which 
point, I assume, the mission re¬ 
peats itself. The added difficulty, 
from what information could be 
gleaned by selecting a higher 
complexity level to begin with, 
stems from the fact that the enemy 
defenses move much faster and 
the player's vessel begins its run 
with less ammunition. 

Airstrike comes with several 
options. For openers, there are 
five difficulty levels at which to 
begin play. In addition, the game 
can be played by either one or 
two players, alternating turns. 
Also, a game may be interrupted 


during the course of play by de¬ 
pressing the CTRL key and 1 to- 

A minor annoyance occurs 
after you lose one of your three 
ships: the next one appears so 
fast that there is little time to re¬ 
group. The only other complaint 
that might be registered is that 
until you are within the sliding 
locks area, any destruction of 
your ship sends you back to the 
very beginning of the program. 
Because it's so difficult to advance 
from screen to screen, especially 
for novices, this can be a tad frus- 

All in all, Airstrike is exactly 
what it claims to be - a very de¬ 
manding program. If you want a 
challenge, Airstrike is the game for 

Mechanically, the game is 
quite strong. The scrolling and 
the graphics are very well done. 
The player" s ship, missiles, 
bombs, and targets are clearly 
defined and, with the exception 
of the spaceship itself, all graphics 
are flicker-free. In addition, colors 
are vivid and the sound effects, 
though limited to explosions of 
one type or another, are more 
than adequate. 

English Software Company 

P.O.Box 3185 

Redondo Beach, CA 90277 

$39.95 © 


HESCAT For 
PET/CBM 

Soon after getting my PET, I 
realized I had a problem: cas¬ 
settes. Hundreds of them. All 
over the place. After buying a 
disk drive, I thought my troubles 
were over. But now I have a new 
problem: diskettes. Hundreds of 
them, and, worse yet, they each 
hold one to two dozen programs. 
What I needed was a way of 
cataloging all these programs 
and the disks they're on: an in¬ 


ventory program, for programs. 
Enter HESCAT, a disk catalog 
program written by Jerry Bailey 
and distributed by Human En¬ 
gineered Software. 

HESCAT is available on disk 
for versions of PET/CBM with 
Upgrade ROMs or 4.0 BASIC, 

40- or 80-column screens, and at 
least 16K of memory (32K pre¬ 
ferred). It works with 2040, 4040, 
and 8050 disk drives. 

How HESCAT Works 

HESCAT is a series of programs 
accessed via a menu that appears 
when you run the main program. 
To perform a particular function, 
you just enter its number and 
the appropriate program is 
loaded. After each function is 
complete, you return to the main 
menu. Because every function 
except HELP is implemented as 
a separate program, HESCAT 
packs a lot of power into a 16K 
PET/CBM. 

The first step in using HES¬ 
CAT is to catalog your diskettes 
with the CATALOG function. 
CATALOG copies information 
from the directory of the disk 
being cataloged, which is in drive 
#1, and records it on the HES¬ 
CAT disk, which must always be 
left in drive #0. After it has re¬ 
trieved all the data from one 
disk, HESCAT asks you to insert 
the next disk. This continues 
until information from all your 
disks has been recorded on the 
HESCAT disk. 

Exactly what kind of infor¬ 
mation is kept for each disk? The 
two-digit disk ID, the disk name, 
the number of free and allocated 
sectors, and the number of files 
on the disk are stored in a file 
called HEADERS. Then, for each 
diskette, HESCAT creates a file 
with the same name as the two- 
digit disk ID. This file contains a 
list of all the files on that disk, 
the type of file (Sequential, Pro¬ 
gram, Relative, or User), and the 
size of each file. On a 2040 or 
4040 disk, you can catalog as 
many as 120 disks with 3300 to 
6000 files; an 8050 disk will keep 
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track of 10,000 to 20,000 files 
from 210 disks. 

After cataloging new disks 
or recataloging an old disk that 
has been changed, the SORT 
NAMES function is used to 
create the ALPHA.NAMES file. 
This is a list of all your cataloged 
files, sorted alphabetically. It 
also contains the type of each 
file and the ID of the disk it's on. 
The sort routine itself is a heap- 
sort and is written in machine 
language. All the names that 
will fit into memory can be sorted 
in a second or so. Usually, how¬ 
ever, the list of names is too long 
to fit in memory. In this case, 
HESCAT uses a scratch disk for 
work files that are sorted indi¬ 
vidually and then merged to¬ 
gether. It will only sort file names 
from disks that have been re¬ 
cataloged since the last sort and 
will merge them into the new 
ALPHA.NAMES file. 

Once the names have been 
sorted, a number of reports can 
be generated using the PRINT 
function. You can request a 
listing of file names, showing 
the file type and what disk it's 
on; a listing of the directories of 
the individual disks; or a sum¬ 
mary of the disk header infor¬ 
mation. All of these will list on a 
CBM or other printer. The pro¬ 
gram also contains a subroutine 
for Epson and Base 2 printers. 

Another practical use for 
HESCAT becomes apparent 
when you use the LOCATE func¬ 
tion. This function searches 
through the file names cataloged 
by HESCAT for a string specified 
by the user and displays all the 
names that contain that string 
along with their disk ID's. 

This is really a most valuable 
function when you forget where 
you stored your Space Invaders 

Complete 

Documentation 

HESCAT comes with two manu¬ 
als totaling 37 pages. The first is 
the User Manual that guides you 
step by step through the process 


of cataloging disks and getting 
reports. The manual is clearly 
written and points up a number 
of spots where things might go 
wrong (especially disk I/O errors) 
and how to recover without los¬ 
ing your data. The second is the 
Program Manual, which covers 
technical information about the 
actual HESCAT programs. In¬ 
cluded are detailed line-by-line 
narratives and variable diction¬ 
aries for each program. There is 
a section on how to safely modify 
parts of HESCAT and a complete 
description of all of HESCAT s 
file formats. In addition, the 
Program Manual includes com¬ 
plete, commented listings of all 
the programs, even an assembly 
listing of the heapsort routine. 
Because Jerry Bailey has used a 
lot of "tricks" to make HESCAT 
fast and compact, you can learn 
a lot by reading the Program 
Manual. 

It is apparent that much 
thought went into making HES¬ 
CAT as easy to use as possible. 
All user interaction with the 
programs is via menus, and HES¬ 
CAT seems reasonably crash¬ 
proof. One of my favorite fea¬ 
tures is the HELP function in the 
main menu program. HELP dis¬ 
plays a brief description of each 
of HESCAT s major functions. 
The information provided by 
HELP was often enough to keep 
me from having to refer to the 
manual. 

To use HESCAT properly, 
you must update the catalog 
every time you start a new disk 
or add files to an old disk. If you 
don't do this, then HESCAT 
won't do you much good. How¬ 
ever, if you are the sort of person 
who will keep the catalog up¬ 
dated, and you want an auto¬ 
mated tool to help you, HESCAT 
is the program for you. 

HESCAT 

Human Engineered Software 

71 Park Lane 

Brisbane, CA 94005 

$39.95 O 


Book Review 

TRS-80 Color 
Computer BASIC 

If you have a Color Computer 
and are taking your first steps in 
BASIC, Richard Haskell's book, 
TRS-80 Extended Color BASIC, 
can help make sure your feet are 
firmly planted. 

Like its companions for the 
Apple, Atari, and PET com¬ 
puters, this book is designed as 
a textbook. It starts out assuming 
the reader knows nothing about 
the TRS-80 Color Computer (or 
BASIC) and builds from there. 

Although the title implies 
that the contents refer only to 
Extended Color BASIC, the book 
serves equally well as a Color 
BASIC tutorial. Only a few, short 
references are made to com¬ 
mands or functions not available 
in Color BASIC. 

Though written to be used 
with a computer at hand, TRS-80 
Extended Color BASIC can be a 
useful study guide when no 
computer is available. The 170- 
page book is packed with screen 
photos that show what happens 
when the sample programs are 
run. The photos also show what 
happens when common pro¬ 
gramming or input errors are 
made. The text carefully explains 
why the mistakes happened and 
shows the novice programmer 
how to avoid the problem in the 

Start With The Basics 

Once you have been introduced 
to the TRS-80 Color Computer 
and have learned to print your 
name on the screen, TRS-80 Ex¬ 
tended Color BASIC takes on the 
BASIC statements one by one. 

Many of the example pro¬ 
grams in the book's early chap¬ 
ters have a mathematical bent. 

You learn to compute the area of 
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The Flight Simulator 
For The Timex/Sinclair 


various geometric shapes, and 
you are treated to an explanation 
of the trigonometric functions. 
Some of these may be lost on the 
beginner who is more concerned 
with learning about the com¬ 
puter than recalling high school 

Once those problems are 
out of the way, however, Haskell 
clearly explains the things begin¬ 
ners need to know to get started 
in programming - printing to 
the screen, loops, and the 
IF...THEN, ELSE statements. 
Further along the way, simple 
and high-resolution graphics, 
sound, arrays, and the PEEK 
and POKE statements are 
covered. 

The final chapter, called 
"Putting It All Together," leads 
you step-by-step through the 
programming necessary to create 
a hangman game and to turn 
your computer into a color 

No Machine Language 

Though the book makes no at¬ 
tempt to teach any machine lan¬ 
guage, one of the nine appen¬ 
dices discusses, in a few short 
paragraphs, how to use a 
machine language subroutine in 
a BASIC program. Other appen¬ 
dices include information on 
BASIC's reserved words, ASCII 
codes, error messages, hexadeci¬ 
mal numbers, the EDIT state¬ 
ment, the PRINT USING state¬ 
ment, and screen locations. 

TRS-80 Extended Color BASIC 
allows beginning programmers 
to build their knowledge of 
BASIC in a logical, understand¬ 
able way. By following the ex¬ 
amples and studying the dozens 
of illustrations provided, it 
should be a quick transition from 
taking your first steps to running 
your own BASIC programs. 


TRS-80 Extended Color BASIC 
Prentice-Hall, Inc. 

Englewood Cliffs, NJ 07632 
$12.95 paper, $19.95 cloth © 


Michael B.WUliams 

First came Mazogs, with its stun¬ 
ning graphics and entertaining 
game play. Then 3D Monster 
Maze, boasting realistic, real¬ 
time movement along three- 
dimensional corridors. Now The 
Flight Simulator is here. And it 
supersedes any graphics I've 
ever seen on the Timex/Sinclair 
orZX-81. 

If you're skeptical, you 
won't be after you've seen it. The 
Flight Simulator challenges you 
to land a small, twin-engine 
plane safely - and it's not easy. 

In all, there are three dis¬ 
plays. The cockpit display shows 
the control panel and simulates 
the view from the inside of the 
airplane. As you dive and bank, 
you see the horizon shift through 
the cockpit window. On the 
control panel are rate-of-climb, 
fuel, power, and flap indicators, 
along with an RDF (radio direc¬ 
tion finder) clock, and speed 
and gear readings. 

The map display shows the 
area in which you are flying, 
including your present position, 
the runway, various beacons, 
and a mountain range rising 
1500 feet above sea level. The 
purpose of this display is to show 
you your position relative to a 
beacon or the runway. 

The third display - and the 
most important - is the visual 
display. It contains the informa¬ 
tion you will need in landing the 
aircraft: the altitude, speed, ILS 
(instrument landing system) and, 
of course, the cockpit display. 
Despite the rather low pixel reso¬ 
lution on the Sinclair - only 
48 x 64 - the realism is out¬ 
standing. If you approach the 
runway at an angle, you will 
see it pass to your right or left 


with astonishing accuracy. It 
is even possible to notice that 
you are slightly off-center, due 
to some remarkable machine 
code programming. 

During landing, you have 
complete control of the airplane, 
and you must make minor ad¬ 
justments to align yourself with 
the runway. Once down, you 
must pull the plane to a complete 
stop. If, on touchdown, the 
screen disintegrates (indicating a 
crash), you have probably for¬ 
gotten the landing gear. Some 
sort of warning that the landing 
gear is up would spare dozens 
of aircraft and who knows how 

The Flight Simulator takes six 
to ten minutes to load, but the 
wait is worth it. The game so 
accurately simulates the flight 
(and for me the plight) of an 
aircraft that you almost feel as if 
you're actually piloting a plane. 
The Flight Simulator 
Gladstone Electronics 
901 Fuhrmann Boulevard 
Buffalo, NY 14203 

$9.95 © 
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INSIGHT: Atari 


I've been a bit remiss about my column recently. 
The editorial staff at COMPUTE! has covered nicely 
for me, splitting some of my larger articles into 
two parts and cutting and pasting. I shall try to 
make life easier for them for the next few months, 
since I have finally accumulated a mental backlog 
of material which I feel is suitable for this column. 

Mind you, I can still use some input from 
you readers on what you would like to see, so 
don't stop writing. As I have stated often in the 
past, it doesn't seem ethical for me to review 
software; but that shouldn't keep me from com¬ 
menting on books, hardware, and who knows 
what else. 

And, in that vein, this isn't truly a "review," 
since I have not had a chance to actually try it yet, 
but the most interesting new product for the "seri¬ 
ous" Atari owner that I have seen lately is the 
new 64K byte memory card from Mosaic Elec¬ 
tronics. With it you can make your 800 behave 
just like a 1200 so far as the bank selecting of RAM 
versus ROM goes. Mosaic rightly points out that 
there is zero software currently available to take 
advantage of the RAM which must lie where the 
OS ROMs are, so perhaps the other configuration 
of their RAM board makes more sense. How about 
up to 192K bytes of RAM in an Atari 800, with all 
but the first 48K being bank selected in 4K hunks 
that reside at $C000 through $CFFF. That gives 
you 36 little 4K byte banks, so just imagine the 
graphics switching you might do (in modes 7 and 
below only, though)! IFs not cheap, but it certainly 
seems like a solution looking for a problem. 

Predictions Revisited 

I was right on two counts! First, I said the 1200 
was overpriced. But look at the prices now. I am 
seriously considering buying one. Or I was. Be¬ 
cause I just heard that Atari is dropping the 1200! 
Welcome, welcome. Atari 600, 1400, and 1450, 
which were introduced at the Summer Consumer 
Electronics Show. All will have expansion capa¬ 
bility like nothing Atari has built before. So watch 
out world: here come the add-ons. [For more on 
the new Atari products at CES, see Tom Halfhill's 
article "The Fall Computer Collection At The Sum¬ 
mer Consumer Electronics Show" elsewhere in 
this issue.] 

Since, by the time you read this, the an¬ 
nouncements will have been made, you will be 
able to see how good my rumor sources and crystal 
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ball gazers are. Me? I'm sitting on the edge of my 
chair for another week or two. 

One more thing before we get to the meat of 
this month's column. It would appear that I fooled 
more than a few people with my April column. If 
you were fooled, I apologize. But not much. After 
all, April Fool articles in computer magazines are 
a tradition that goes back to the first days of Data¬ 
mation (a magazine sent free to anyone who owns 
a computer worth more than a quarter million 
dollars, heavily loaded with IBM mainframe arti¬ 
cles, but it wasn't always so). Be assured that if 
you were fooled you were in good company: I 
showed the article to a COBOL programmer with 
ten years experience, and she didn't get it either. 
(To be fair to me, though, didn't you notice the 
title of the column that month, "Outasight: 
Atari"?) 

Well, enough chitchat. Shall we tackle BAIT 
one more time? I am not sorry to see this series 
end, but looking at the finished product I can 
honestly say that those who understand it (and 
know at least a smattering of machine language) 
should be able to tackle COMPUTEI's Atari BASIC 
Sourcebook, wherein we detail the workings of a 
real interpreter. 

BAIT, Part 4 

This month we present the listing of BAIT in its 
entirety. It is not a small listing, and there is no 
room in a single column to recap all the details of 
its creation and function. So, you really need Parts 
1 through 3 (which appeared in March, May, and 
June) if you want the full design principles. 

As a very brief summary, though, let's men¬ 
tion the following: 

1. BAIT is a very simple pseudo-BASIC inter¬ 
preter which has been written in Atari 
BASIC. 

2. BAIT accepts only single-letter statement 
names (as shown in the table) and single-letter 
variable names (A through Z). 

3. BAIT allows BASIC-style screen editing, 
line numbering, etc., with the restriction that 
line numbers must be from 1 to 99. 

4. There is no precedence of operators, 
parentheses, functions, or any other 
amenities. This is a primitive language. 

Does it work? Yes. Is it useful? Only as a 

learning tool. Could it be made useful? If we wrote 
a compiler for the same language, maybe. 



7 - 800 - 538-8543 


ONDf AIARTGIVES YOU COMPUTERS 
THAT DO SO MUCH, AND THE 
"HELP LINE" SO YOU CAN DO MORE. 


Our Help Line could be the most useful 
innovation ever in home computers: it's 
someone to talk to. 

Someone to help you diagnose problems 
when things don't seem to work right. 

Someone to help you - 

debug the programs that 
you're writing yourself. 


Someone who knows the answers to your 
questions about what ATARI® Home Comput¬ 
ers can do, and how to do it. 

Call the ATARI Help Line toll-free: 
1-800-538-8543* And find out how helpful 

ATARI SERVICE 5 " can be, 


HAlHHlSiRVlUt 


=====” even when nothing 
!”■ *" is wrong. 


WEANSWERY3URCALL FOR HELP 


‘California: 1-800-672-1404 







New Goodies 

This month, I have finally implemented the rest 
of the statements listed in the table. In particular, 
we now have Accept, Call, Fetch, New, Return, 
and Store available to us. 

New and Return function exactly like their 
BASIC counterparts of the same names. Accept, 
Call, and Store are simply different names for 
BASIC's INPUT, GOSUB, and POKE, respec¬ 
tively. They had to be named as they are to im¬ 
plement the single-letter statement names. 

Fetch, then, is the only strange statement. It 
owes its existence to the fact that BAIT doesn't 
allow functions. Generally, Fetch is equivalent to 
PEEK, but its format is that of POKE (and, natur¬ 
ally, Store). It does, however, require a variable 
to store its Fetched value in (much like GET in 
Atari BASIC). 

The statements are fairly straightforward, 
and we shall see more of them a little later on. For 
now, though, let's analyze the additions and 
changes made to BAIT this month on a line-by-line 
basis. The lines discussed below are those which 
have changed or been added since the June 
column. If you have typed in BAIT as we have 
proceeded through parts 1, 2, and 3, you may 
enter just those lines. 

•Line 1130. This is the stack we will use for 
"remembering" where Calls (GOSUBs) were 
made from. The size is arbitrary, but I cheated 
and used a fixed number, so don't change it unless 
you also change line 10910. 

• 1720. This makes screen editing of BAIT 
programs very, very much easier. See line 2300. 

• 2200. We always reset the Call stack pointer 
because program editing could invalidate any or 
all pending Return locations. 

• 2300. See line 1720. This is how we eliminate 
the "?" prompt from the screen when using the 
INPUT statement. A clever trick: use it in all your 
programs. It comes to you courtesy of Howard 
Fishman. Thanks, Howard. 

• 2360. Notice that this line (which used to 



• 1540,5520, and 5530. The TRAP to BAD- 
VALUE was added just in case your BAIT program 
generated an overflow. 

• 8310 and 8410. Cosmetic changes only. 

• 8500 and 8510. A new error message. It's 
used for all BAIT numeric data problems. 

•10210. A minor change to allow Print (with¬ 
out a following expression) to be followed by a 
colon statement separator. 

• 10530-10550. A fix. Without it, the Goto 
doesn't occur until the end of the line. Thus 'G 10 
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: P "oops" ' would indeed print the "oops" until 
now. But this fixes it. 

• 10810-10860. Finally, some new code! Actu¬ 
ally, Accept is fairly simple and closely follows 
the format of Let. Instead of requiring an expres¬ 
sion after an equals sign, though. Accept wants 
the user to INPUT something from the keyboard. 
Thanks to the TRAP, only numeric data will be 
allowed. 

• 10910-10960. We process the Call statement. 
Line 10910 seems unnecessary: who would want 
to go 50 levels deep in a BAIT program? But it 
works. Notice that all three vital pointers must be 
saved on the stack. Could it have been done more 
compactly? Yes, but this way is much simpler. 
Finally, we allow Goto to do the real work of 
transferring control to a new line number. 

• 11110-11150. Fetch also follows the form of 
Let, but in reverse. First we get an address (line 
11110), then a comma (line 11120), and finally a 
variable to put the Fetched value into (line 11130). 
The TRAP of line 11140 insures that the address 
given was a legal one. 

• 11310-11370. Return is the opposite of Call. 
Again, line 11310 is for safety only; good pro¬ 
grammers can't make mistakes like this, right? 
Lines 11320 to 11350 restore the information saved 
by Call in lines 10920 to 10950. Finally, since we 
saved CURLOC before we joined the Goto pro¬ 
cessing, we must skip over the line number ex¬ 
pression to find out if there is a colon (":") waiting 

• 11410-11450. Store is almost identical to 
Fetch. The exception: the item after the comma 
can be any expression at all; it does not need to be 
a simple variable. Again, the TRAP in line 11440 
insures against illegal addresses and/or data. 

Sampling The BAIT 

Well, we can presume that you typed all of BAIT 
in properly, yes? So let's quickly try some BAIT 
programs, to see what you can do in the language. 

Caution: The lowercase letters shown in these 
listings are there for clarity only! BAIT accepts 
only single-letter commands, so just leave out all 
lowercase letters. Do not convert them to upper¬ 
case. For example, the first line of Program 1 
should actually be typed in as '1 S 20,0' (and even 
the spaces may be left out if desired). 

Program 1: Tick-Tock 

2 Print "SHOWING HOW SLOW BAIT IS" 

3 Fetch 20,T 

4 Print "THAT TOOK : Print T;: Print "CLOCK 
TICKS" 
















































Program 2: Recursion 

1 Print "GIVE ME AN INTEGER NUMBER";: 
Accept N 

2 Let A = 1: Call 10 

3 Print "THE FACTORIAL OF YOUR NUMBER 
IS";: Print A 

4 Print: Print: Goto 1 

10 If N<2: Return 

11 Let A = A*N: Let N = N -1 

12 Call 10 


Challenge: Can you modify BAIT so that it will, 
indeed, ignore the lowercase letters? If so, your 
BAIT programs could be more readable. 

Whew! 

And there you have it. BAIT in all its glory. Or is 
that gory? Some carpers may claim that the only 
thing it proves is that people will try to write any¬ 
thing in BASIC. I like to think it may have provided 
a way for some of you to understand the 
mechanics of an interpreter. If it helps turn even 
one or two people into systems-level program¬ 
mers, it will have done its job. 

But if BAIT didn't interest you, don't worry. 
There are even a few out there that don't like to 
program games. (I certainly like to play them. I'm 
hooked on - oops, can't review software here. 

Self-relocatable Machine Language, 
Part 2 

Last time we were on this subject, I promised to 
give a reason why we would want to write self- 
relocatable machine language. And sometimes I 
even keep my promises. 

The primary advantage of self-relocatable 
code is, obviously, that you can load it and run it 
anywhere in memory. But why would you want 
to do that? Why not just decide where the code 
will go and leave it at that? Well, let's try to answer 
those questions. 

First of all, none of what I am about to say 
pertains to programs which "take over" the sys¬ 
tem. After all, if you know that your code will run 
in such and such a way because, for example, you 
only give it out on a heavily protected game disk, 
then you can obviously place various hunks of 
machine language exactly where you want them. 
And they'll stay put. 

But a large proportion of my readers are, I 
believe, attempting to either write machine lan¬ 
guage programs which interface to BASIC or are 
attempting to add on to the operating system in 
some way. In both these instances,®elf-relocatable 
code is invaluable. 

Why? Because there simply isn't very much 
room in the Atari memory map that isn't used for 
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something or other. In ppint of fact, the only clear 
portion of memory seems to be the infamous 
"Page Six." But, remember, even Atari BASIC 
can clobber the lower half of that page. And BASIC 
A +, Microsoft BASIC, Atari PASCAL, and several 
other products use portions or all of Page Six. 
What to do? 

Well, if you have been following my articles, 
you will know that I advocate placing your pro¬ 
gram at LOMEM, moving LOMEM up to cover 
your program, and hooking into the system reset 
chain so that you can preserve your program if 
the user hits the reset key. 

All well and good, but suppose LOMEM 
moves? And it will and it does. Depending on the 
number of disk drives and/or files you need to 
support, LOMEM can be anywhere from $A20 
(with OSS PicoDOS) to $1D00 (standard Atari 
DOS) to $2C00 (OS/A + version 4.1). And, if the 
RS-232 drivers are to be loaded (for the 850 inter¬ 
face), you can count on LOMEM being even higher 
still. 

What's a poor old machine language pro¬ 
grammer supposed to do? Follow my directions, 
natch. Put your program at LOMEM, no matter 
where it is. And that's easy to do if your program 
is self-relocatable. 

And, before we get into discussing how to 
write this magic kind of program, I would like to 
point out one other significant instance where 
self-relocatable programs are handy. Putting pro¬ 
grams at LOMEM and moving LOMEM up is all 
very well and good if you can do that before BASIC 
gets control. But once the language is entered, it 
has already noted the contents of LOMEM and 
used them for its own initialization purposes. 
Changing LOMEM will not necessarily force 
BASIC to move its own internal LOMEM, and 
you may wind up with a conflict of usage. 

But there is a hunk of memory which is prop¬ 
erly handled by BASIC as far as we are concerned: 
strings. Any data, including a machine language 
program, placed in a dimensioned string is 
guaranteed to be moved around intact (for ex¬ 
ample, when a new program line is entered or 
when a new variable is introduced). 

Indeed, there have been many articles pub¬ 
lished which put a machine language routine 
or two in a string and then call the routine via 
USR( ADR( strings$),...). In fact, I have even 
seen a few adventuresome souls who have used 
ADR("some graphics and other characters here"). 
That is, it is perfectly O.K. to take the address of a 
literal string, also. 

For the rest of this series, I will presume that 
we are writing programs which are designed to 
reside in Atari BASIC strings. I think that is suffi¬ 
cient, since there is little, if any, difference in con- 


cept between placing programs in strings and 
placing them at a potentially movable LOMEM. 

From Why To How 

Let's begin by listing the things you don't have to 
worry about when writing self-relocatable pro¬ 
grams. Some of these things were discussed briefly 
last month; others are new but should be fairly 
obvious. The following, then, are intrinsically 
"safe" types of machine language; 

1. All instructions which involve only one or 
more registers (e.g., TAX, PHA, INY, etc.). 

2. All load immediate instructions which do 
not involve the address of a location as the 
immediate value (e.g., LDA #5, but not LDY 
#LOCATIGN/256). 

3. All branch instructions (BNE, BCC, etc.). 

4. All instructions involving fixed operating 
system or language specific locations, either 
in ROM or RAM (e.g., STA LEFTMARGIN, 
JSRCIO). 

5. Several miscellaneous instructions which 
do not reference memory addresses, such as 
SED, SE1, CLC, NOP, RTS, etc. 

What about the intrinsically unsafe instruc¬ 
tions? Here is one of them: 

Any instruction which references an absolute 
memory location within your own code (or 
another block of relocatable code) or which 
references a fixed RAM location which is not 
dedicated to the purpose intended. 

Now, that's not so bad. There are a lot more 
safe conditions than unsafe ones, aren't there? 
And, yet, it takes only one unsafe instruction to 
clobber you, so let's concentrate on some tech¬ 
niques for avoiding the unsafe conditions. 

Safe Relocatable Techniques 

1. Change JMPs to branches. Usually, you 
can do a CLC followed by a BCC to substitute for 
a JMP. Sometimes, the target of the jump is too 
far away, though. In that case, add an intermediate 
branch point, so that the first BCC branches to a 
second BCC, etc. 

2. Save register values on the stack (via TAX, 
PHA, etc.) rather than in fixed RAM locations. If 
you need to save a value in between calls from a 
higher level routine (e.g., the BASIC program), 
though, you will have to find some safe place to 
put it. Watch out! There are only four safe locations 
in zero page and only a handful in other parts of 
memory. More about such safe locations in the 
next part in this series. 

3. If you need to reference bytes in a table, 
string, or other portion of memory, why not let 
BASIC handle the addressing for you? For ex¬ 
ample, consider this BASIC line: 


TEST = USR( ADR(CODE$), ADR(TABLE$) ) 
Presuming that your machine language routine 
is in CODES, it can then reference TABLES as 
follows: 

PLA ; parameter count 

STA ZTEMP + 1 ; high byte of address 

STA ZTEMP ; low byte of address 
LDY #0 

LDA (ZTEMPLY ; get first byte of the table... 

That program fragment is certainly intrinsi¬ 
cally relocatable (except for the location of ZTEMP, 
but it needn't be preserved in between calls to the 
fragment). And BASIC will certainly move 
TABLES around as it needs, giving you the address 
when you need it. 

4. If you absolutely have to use a hunk of 
nonrelocatable programming, and you don't have 
space to keep it on a permanent basis, why not 
temporarily move it from a relocatable location 
(e.g., TABLES in our example above) to a fixed 
location (e.g., BASIC's input buffer at $580 or 
some such). Then you can use it safely there, with¬ 
out worrying about relocatability. Of course, each 
time you are called from BASIC you would have 
to move the routine. But, as slow as BASIC is, 
you might never notice the extra overhead. 

Next time we will continue right here. We 
will try to develop some even more useful tech¬ 
niques, including one which can only be used 
with USR calls from BASIC. Stay tuned. 

BAIT Statements 


A Accept <variable) (INPUT) 

B Begin (RUN) 



BAIT 

1000 REM ..INITIALIZATION.. 

1001 REM . 

1010 MAXLINE=99 

1020 DIM BUFFER?(5000),LINE$(128) 

1030 DIM LINES(MAXLINE) 

1040 FOR LP=0 TO MAXLINE: LINES (LP )=0:NEX 

1050 BUFFER? 5 *"*" 

1100 DIM C?(l),VARIABLES(26) 

1110 FOR ALPHA=0 TO 26:VARIABLES(ALPHA)= 
0:NEXT ALPHA 
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1120 


DIM ERR?(40) 

1130 DIM STACK(50 # 2):REM MAX CALLS THUS 
IS 50 

1500 REM LINE NUMBERS OF EXECUTION ROUTI 
NES 

1510 PROMPT=2100:INNEXT=2300 
1515 DIRECT=4700:BADLINE=8400 
1520 LET GETNC=8100 

1530 SYNTAX=8300:ERROR=8200:EXEXP=5000 
1540 BADVALUE=8500 
1550 DODISPLAY=10100:DOPRINT=10200 
1560 DOBEGIN=10400:DOGOTO=10500:DOLET=10 
600;DOIF=10700 

1570 DOACCEPT=10800:DOCALL=10900:DOEND=l 
1000:DOFETCH=l1100 

1580 DONEW=11200:DORETURN=11300:LET DOST 

1700 REM MISCELLANY 
1710 UNTRAP=40000 

1720 OPEN #5., 12,0, "E: ":REM SO THERE IS N 
O ? PROMPT 

2000 REM ..INTERACTION.. 

2001 REM . 

2100 PRINT "READY" 

2200 STACK=0:REM CLEAN UP 'CALL' STACK 
2300 INPUT #5,LINE? 

2350 IF LEN(LINE?)=0 THEN GOTO INNEXT 
<<< DELETED OLD LINE 2360 >>> 

2370 LL=LEN(LINE?) 

2500 REM CHECK FOR LINE NUMBER 
2510 FOR LP=1 TO LL 

2520 IF LINE?(LP,LP)<="9" AND LINE?(LP,L 
P)>="0" THEN NEXT LP 
2550 REM LP HAS.POSITION OF FIRST NON-NU 
MERIC CHARACTER 
2560 CURLINE=0 

2570 IF LP>1 THEN CURLINE=VAL(LINE$(1,LP 
- 1 )) 

2600 REM NOW SKIP LEADING SPACES, IF ANY 
2610 IF LP>LL THEN 2700 
2620 FOR LP=LP TO LL 

2630 IF LINE?(LP,LP)=" " THEN NEXT LP 
2700 REM REMOVE LINE NUMBER AND LEADING 
SPACES 

2710 IF LP>LL THEN LINE?="":GOTO 3000 
2720 LINE$=LINE$(LP) 

3000 REM ..EDITING.. 

3001 REM . 

3010 REM IF HERE, LINE NUMBER IS IN CURL 

3020 LL=LEN(LINE?):REM AND LL IS LENGTH 
THEREOF 

3030 IF CURLINE=0 AND LL=0 THEN GOTO PRO 


3040 IF CURLINE< >INT(CURLINE) THEN 3060 
3050 IF CURLINE<=MAXLINE THEN 3100 
3060 GOTO BADLINE 

3100 REM FIRST, DELETE CURLINE IF IT ALR 
EADY EXISTS 

3110 LENGTH=LINES(CURLINE):IF LENGTH=0 T 

3120 START=INT(LENGTH/1000) 

3130 LENGTH=LENGTH-1000*START 
3140 BUFFER?(START)=BUFFER?(START+LENGTH 

3150 LINES(CURLINE)=0 

3160 FOR LP=1 TO MAXLINE:TEMP=LINES(LP) 
3170 IF TEMP>=START*1000 THEN LINES(LP)= 
TEMP-LENGTH*1000 
3180 NEXT LP 


3200 REM NOW ADD L3jNE TO END OF BUFFER 
3210 IF LL=0 THEN GOTO INNEXT 
3220 START=LEN(BUFFER?) 

3230 BUFFER?(START)=LINES? 

3240 BUFFER?(LEN(BUFFER?)+1) = "*" 

3250 LINES(CURLINE)=START*1000+LL 
3300 REM NOW LINE IS IN BUFFER...WHAT DO 
WE DO 

3310 IF CURLINE THEN GOTO INNEXT 
3320 REM NOTE THAT CURLINE=0 AS WE FALL 
TO LINE 4000 

4000 REM ..EXECUTE CONTROL.. 

4010 LENGTH=LINES(CURLINE)sIF LENGTH=0 T 

4020 CURLOC=INT(LENGTH/1000):LENGTH=LENG 
TH-1000*CURLOC 
4030 CUREND=CURLOC+LENGTH-l 
4040 IF CURLINE=0 THEN CURLINE=-1 
4100 REM READY TO EXECUTE A LINE 
4200 REM EXECUTE A SINGLE STATEMENT 
4210 GOSUB GETNC:IF NOT ALPHA THEN GOTO 

4220 GOSUB 4900 

4230 IF PEEK(53279)<>7 THEN GOSUB DOEND 
4240 IF C?=":" THEN 4200 
4250 IF 0=0 THEN GOTO SYNTAX 
4600 REM COME HERE FOR NEXT LINE 
4610 CURLINE=CURLINE+1 

4620 IF CURLINE>0 AND CURLINE<=MAXLINE T 
HEN 4000 

4700 REM ===COME HERE ON END OF DIRECT L 
INE EXECUTE=== 

4710 IF LINES(0) THEN BUFFER?(INT(LINES( 

0)/l000))="*" 

4720 LINES(0)=0 

4730 GOTO PROMPT 

4900 REM THE STATEMENT CALLER 

4910 ERR?="BAD STATEMENT NAME" 

4920 ON ALPHA GOTO DOACCEPT,DOBEGIN,DOCA 
LL,DODISPLAY,DOEND 

4930 ON ALPHA-5 GOTO DOFETCH,DOGOTO,ERRO 
R,DOIF,ERROR,ERROR 

4940 ON ALPHA-11 GOTO DOLET,ERROR,DONEW, 
ERROR,DOPRINT 

4950 ON ALPHA-16 GOTO ERROR,DORETURN,DOS 
TORE 

4960 GOTO ERROR 

5000 REM ..EXECUTE. EXPRESSION.. 

5001 REM . 

5010 EVAL=0.:LASTOP=-1 

5020 VALID=0 

5100 GOSUB GETNC: IF ALPHA THEN 5300 
5110 IF C?>="0" AND C?<="9" THEN 5400 

5120 REM WHICH OPERATOR? 

5121 IF C?="+" THEN 0P=1:G0T0 5200 

5122 IF C?="-" THEN 0P=2:GOTO 5200 

5123 IF C?="*" THEN 0P=3:G0T0 5200 

5124 IF C?="/" THEN 0P=4:G0T0 5200 

5125 IF C?=">" THEN 0P=5:G0.T0 5200 

5126 IF C?="<" THEN 0P=6:G0T0 5200 

5127 IF C?=j'=^ THEN 0P=7:G0T0 5200 

5160 IF VALID THEN RETURN 
5170 GOTO 5900 
5200 REM GOT AN OPERATOR 
5210 IF LASTOP>0 THEN 5170 ' 

5220 IF LASTOP<0 AND OP>2 THEN 5170 
5230 LASTOP=OP:VALID=0:GOTO 5100 
5300 REM GOT A VARIABLE 











5310 VAL2=VARIABLES(ALPHA):GOTO 5500 
5400 REM GOT A NUMERIC 

5410 CURLOC=CURLOC-l:REM BACKUP TO FIRST 
NUMERIC 

5420 FOR LL=CURLOC TO CUREND:C?=BUFFER?( 
LL) 

5430 IF (C?>="0" AND C?<="9") OR C?="." 
THEN NEXT LL 

5440 VAL2=VAL(BUFFER?(CURLOC , LL-1)) 

5450 CURLOC=LL 

5500 REM VAR OR NUMERIC 

5510 IF LASTOP=0 OR ABS(LASTOP)>8 THEN 5 
5520 TRAP BADVALUE:GOSUB 5600+10*ABS(LAS 

5530 TRAP UNTRAP:LASTOP=0:VALID=1:GOTO 5 
100 

5600 REM EXECUTE OPERATORS 

5610 EVAL=EVAL+VAL2:RETURN 

5620 EVAL=EVAL-VAL2:RETURN 

5630 EVAL=EVAL*VAL2:RETURN 

5640 EVAL=EVAL/VAL2:RETURN 

5650 EVAL=(EVAL > VAL2):RETURN 

5660 EVAL=(EVAL <VAL2):RETURN 

5670 EVAL=(EVAL=VAL2):RETURN 

5680 EVAL=(EVAL<>VAL2):RETURN 

5900 ERR?="INVALID EXPRESSION":GOTO ERRO 

8000 ..MISCELLANEOUS SUBROUTINES.. 

8001 REM . 

8100 REM GETNC 

8110 IF CURLOOCUREND THEN C=-l: C?=CHR? ( 
155):GOTO 8140 

8120 C=ASC(BUFFER?(CURLOC)):C?=CHR?(C) 

8130 CURLOC=CURLOC+1 

8140 IF C=32 THEN GOTO GETNC 

8150 ALPHA=(C$> = "A" AND C?<="Z")*(C-64) 

8160 RETURN 

8200 REM ERROR ROUTINE 

8210 PRINT :PRINT "***";ERR?;"***"; 

8220 IF CURLINE>0 THEN PRINT " AT LINE " 
;CURLINE 

8230 PRINT :TRAP 8250 

8240 POP :POP :POP :POP :POP :POP :POP : 

8250 TRAP UNTRAP 

8290 GOTO DIRECT 

8300 REM SYNTAX ERROR 

8310 ERR?="SYNTAX ERROR" :GOTO ERROR 

8400 REM BAD LINE NUMBER 

8410 ERR?="BAD LINE NUMBER":GOTO ERROR 

8500 REM VALUE OUT OF RANGE ERROR 

8510 ERR?="BAD VALUE":GOTO ERROR 

10000 REM ..EXECUTE THE VARIOUS STATEMEN 



10100 REM ==EXECUTE DISPLAY== 

10110 FOR LP=1 TO MAXLINE 

10120 LENGTH=LINES(LP):IF LENGTH-0 THE 1 


10130 START=INT(LENGTH/1000):LENGTH=LENG 
TH—1000*START 

10140 PRINT LP;" ";BUFFER?(START,START+L 

10190 GOTO GETNC 

10200 REM ==EXECUTE PRINT== 

10210 GOSUB GETNC:IF C<0 OR C?=":" THEN 
PRINT :RETURN 


10220 IF C=34 THEN 10300 
10230 CURLOC=CURLOC-l 
10240 GOSUB EXEXP:PRINT EVAL; 

10250 IF C?=";" THEN GOTO GETNC 
10260 IF C?="," THEN PRINT f :GOTO GETNC 
10270 PRINT :RETURN 

10300 FOR LL=CURLOC TO CUREND:C?=BUFFER? 

10310 IF ASC(C?)<>34 THEN PRINT C?;:NEXT 
LLSPRINT :RETURN 
10320 CURLOC=LL+l:GOSUB GETNC 
10330 GOTO 10250 
10400 REM ===EXECUTE BEGIN=== 

10410 FOR ALPHA=0 TO 26:VARIABLES(ALPHA) 
=0:NEXT ALPHA 

10420 CURLINE=0:C=-1:RETURN 
10500 REM ===EXECUTE GOTO=== 

10510 GOSUB EXEXP 

10520 IF LINES(EVAL)=0 THEN ERR?="NO SUC 

10530 CURLINE=EVAL-1 
10540 C=-l:C?="" 

10550 RETURN 


10610 GOSUB GETNC:IF NOT ALPHA THEN GOTO 
SYNTAX 

10620 DESTVAR=ALPHA 

10630 GOSUB GETNC:IF C?<>"=" THEN GOTO S 
YNTAX 

10640 GOSUB EXEXP:VARIABLES(DESTVAR)=EVA 


10650 

10700 

10720 

10730 

10800 

10810 


10820 

10830 

10840 


REM ===EXECUTE IF=== 

GOSUB EXEXP ^ ic?"" 

REM ===EXECUTE ACCEPT=== 

GOSUB GETNC:IF NOT ALPHA THEN GOTO 
SYNTAX 

TRAP 10850:INPUT EVALsTRAP UNTRAP 
VARIABLES(ALPHA)=EVAL 

PRINT "??? MUST INPUT A NUMBER, RE 


10860 GOTO 10820 
10900 REM ===EXECUTE CALL=== 

10910 IF STACK=50 THEN ERR?="TOO MANY CA 

10920 STACK(STACK,0)=CURLOC 
10930 STACK(STACK,1)=CUREND 
10940 STACK(STACK,2)A=CURLINE 
10950 STACK=STACK+1 


11000 REM ===EXECUTE END=== 

11010 PRINT"===END AT LINE "?CURLINE;"== 


11020 C=-l:CURLINE=C:C?="" 

11030 RETURN 

11100 REM ===EXECUTE FETCH=== 

11110 GOSUB EXEXP 

11130 GOSUB GETNC:IF{2 SPACES}NOT ALPHA 
THEN GOTO SYNTAX 

11140 TRAP BADVALUE:VARIABLES(ALPHA)=PEE 

11150 TRAP UNTRAP:GOTO GETNC 
11200 REM ===EXECUTE NEW=== 


11310 IF STACK=0 THEN ERR?="NO 


MATCHING 



































Converting 
VIC And 64 
Programs 
To PET 

;’5irra Butterfield, AssacfcJtf Editor 

This handy, short program will automatically fix 
VIC or 64 programs so they will run correctly on the 
PETICBM. 


BASIC programs move freely from PET, VIC, or 
Commodore 64 to the VIC or 64. But they don't 
flow easily to the PET from the other machines. 

If you have a disk, this "Program Converter" 
will convert your BASIC programs easily and 
quickly. It will run on PET, VIC, or Commodore 
64. The programs must be free from special PEEKs 
and POKEs, of course; but regular BASIC will 
work fine on any machine. Program Converter 
just helps you load it to the PET. 

Programs which have been converted will 
load to any machine: PET, VIC (any memory con¬ 
figuration), and Commodore 64. Before conver¬ 
sion, the PET wasn't in the list; the other machines 
were capable of adjusting to "foreign" programs. 

Type in Program Converter and run. It will 
ask you for the name of the program you wish to 
convert (say, a BASIC program written on the 
64). Enter the name, and it will then ask you for 
the new name you wish to give to the converted 
program. Supply the name, and the job's under 

If you have a dual drive, the new program 
will always be written to drive zero. After you 
have converted the program, the new version 
will still load without problems to the VIC or 64, 
but will also load to a standard PET. 

The Program 

100 PRINT "VIC/64 TO PET” 

110 PRINT "PROGRAM CONVERTER" 

120 PRINT 

130 X=150:POKE X,127 
140 IF ST<>127 THEN X=144 

150 DATA 162,1,32,198,255,32,228,255,166 
,150,8,72,32,204,255 

160 DATA 162,2,32,201,255,104,32,210,255 
,32,204,255,40,240,226,96 


170 FOR J=828 TO 858 :READ A:POKE J,A:T=T 
+A:NEXT J 

180 POKE 837 ,X: IF T<>4396 THEN STOP 

200 CLOSE1:CLOSE2:CLOSE15 

210 OPEN 15,8,15 

220 INPUT “BASIC PROGRAM";B$ 

230 OPEN 1,8,3,B$+“,P,R" 

240 INPUT #15,E,E$,E1,E2 

250 IF E THEN PRINT E$:GOTO 200 

260 GET #1,A$,B$ 

270 IF A$<>CHR$(1) THEN PRINT "OOPS1":GO 
TO 200 

280 INPUT "NEW NAME";N$ 

290 OPEN 2,8,4,"0:"+N$+",P,W" 

300 INPUT #15,E,E$,E1,E2 

310 IF E THEN PRINT E?:GOTO200 

320 PRINT #2,A$;CHR$(4); 

330 SYS 828 

340 CLOSE2:CLOSE1:CLOSE15 
350 PRINT"DONE." 


The Machine Language 


It may be instructive to examine the simple 
machine language program which does the job. 
Machine language isn't vital, of course; it just 
speeds things up. Let's look at it. At the time this 
part of the program runs, the files have been 
opened. 

Get a character from the input: 


(get ST and stack it awa 
(on VIC/64, STATUS is i 


x 90) 


(stack the input character) 

(47 48 PHA 

(48 20 CC FF JSR $FFCC 

(connect the output) 

(4B A2 02 LDX #$02 

(4D 20 C9 FF JSR $FFC9 

(get character and send) 

551 20 D2 FF JSR $FFD2 


If you type Program Converter into a VIC or 
64, you might like to have it convert itself. That 
way, you'll have a universal program converter, 
one that will work on the PET. By the way, the 
machine language won't get in the way, since it's 
POKEd into place by the BASIC program. 

Copyright © 1983 Jim Butterfield. © 
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How To Create A 
Data Filing System 

Part II. Planning The Output 

Jim fowler 


Part I of this article covered the goals to keep in 
mind and the kinds of disk files that could be used 
in a data filing system. From painful experience, I 
can tell you that the most important planning 
begins with the output functions of a program. 
This will determine the best way to file the data. 
That will, in turn, define the nature of the input 
functions. There are two aspects to the problem: 
how to encode the data and how to search the 
file. Again, it's best to work backwards. Let's look 
at searching first. 

Searching Takes Time 

Let's say you want to search your file. You have 
data that you want to match up with data in the 
file - maybe an author's name - and you want the 
titles of the books by that author. The author's 
name will be used as the key, and you want to 
retrieve all the records having an author's name 
identical to the key. 

First, you have arranged the data within the 
records so the program can find the author's name. 
Maybe it is the first 16 bytes in the record. You 
can read that from the disk and compare it to the 
key. If they match, you have a hit, otherwise you 
have a miss. Maybe you want all the hits to be 
printed or displayed on the screen. Maybe you 
want both, or, as I arranged to do in one of my 
programs, you can preview a hit on the screen 
and opt to have it printed for later use. 

However, there is a serious problem here. It 
may take only a second or two to get the author's 
name from the disk, and the comparison with the 
key runs quite fast. But if you have a thousand 
records to search through at one second each, it's 
going to take about 20 minutes to go through the 
file - and that's not allowing any time for the 
printer to print or the user to preview records on 
the screen. You could flip through a lot of cards 


in a card file in 20 minutes. How can you get 
around this? 

Creating An Index File 

The answer is an index file; see Figure 1. You keep 
a separate file of authors' names, probably in the 
same order as the records on the disk. Because 
this file sits in RAM, searching is much faster. 
Furthermore, you may be able to make the pro¬ 
gram search while contemplating the last hit on 
the screen, or while the printer is printing. Then, 
the only delay is in retrieving the first hit. After 
that, the search appears instantaneous. Index 
files are almost a necessity if you have many re¬ 
cords and want to retrieve them in anything other 
than top-to-bottom order. Even a mailing list 
ought to be retrievable in alphabetical order or by 
zip code, for example. 

This brings up another problem: the index 
file (or files) will have to be recorded on the disk, 
too. The longer the file, the longer it will take to 
save it when you are through entering data - and 
the more space you will need in RAM. So give 
thought to keeping index files as short as you can 
and as easy to save as possible. This means using 
index words (entries into the index file) which are 
both short and packed with information. Look at 
your data with this in mind. 

I found that last names can usually be reduced 
to the first eight letters. The number of false hits 
is quite tolerable, especially if you plan to preview 
the hits for other reasons. Now and then you will 
look for WADSWORTH and get WADSWOR- 
THENSON, but that has to be traded off against 
using a nine-letter index word which makes a 
thousand-record index a thousand bytes longer. 
You will have to compromise somewhere. 
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Two Kinds Of Search 

Another consideration is that there are two fun¬ 
damentally different kinds of search. One is a 
match: like the author's name, it's an identity 
match. The other is a topic match. An example of 
this is looking for books on certain subjects. In 
this second case, the subjects are “contained in" 
the record, but the book might also include sub¬ 
jects you haven't asked for and don't care about. 
The match isn't an identity; let's call it a "con- 
tained-in" match. How you implement this de¬ 
pends on how you encode the information on 
subjects. 

I recommend that you use a bitmap type of 
code as illustrated in Figure 2. Program 1 gives a 
sample “identity search" in both BASIC and 
machine language. Program 2 does the same for 
the "contained-in“ search. 

There are a few techniques you need to use. 
First, you set up a general buffer to use in inputting 
keys and index words. The same routine used for 
generating an index word (say, from an author's 
last name) can be used to put the comparable index 
word into this buffer. Carefully consider how you 
encode the data in light of your retrieval problems. 
A few hours at this stage can make a tremendous 
difference in the result. 

If your key for an identity search is not as 
long as the index words compared with it, fill the 
rest of the space with nulls. In the search routine 
(as shown in the programs) the program returns 
as soon as it hits a null. That way you can input 
"SMITH" and find all the Smiths or even just 
"S" and get all the authors whose names start 
with S. 

If you want to retrieve records by a combina¬ 
tion of these search methods, you can do it by 
using them in sequence. For example, do an iden¬ 
tity search first. Then, when you have a hit, check 
for the second kind, the contained-in search. If 
the record passes both tests, you have a full hit. 
This allows you to set up keys that are a mixture 
of "must-have" and "don't-care" data. 

Record Formatting 

Now it is time to decide how your records are to 
be set up. If you are using relative records (each 
record the same length - like pigeonholes), you 
have the same arrangement problem within a 
record as you had deciding the type of record 

Your record can be divided up into "fields." 
Each record will have the same size fields. One 
field will be the author's name, another the year 
of publication (four bytes can encode a four-digit 
year, or you can subtract 1792 from the year and 
encode all the years from 1792 to 2047 with only 
one byte). Each field will have to be big enough to 
hold the largest string of data you will ever want 


to store there. Book titles in my file take 80 bytes, 
and even then I have to condense the longer titles. 

Take your time deciding your record format. 
Since you will be reading a record from the disk 
only to display it (not for searching purposes), it 
is best to have the data in a few long strings rather 
than in shorter chunks. Author and year could be 
one ASCII string - then the input from the disk 
and the display on the screen (or printer) is easy 
to program. Numeric data can be either floating 
point or integer. 

Working with output is the next step, and 
we'll cover that in the next issue. 

Figure 1: Index files contain parts of records 
for rapid searching. 


Figure 2: Subjects or other yes-no data can 
be coded by individual bits. 



return with number of record hit in register. If that 



























“THE EDGE...” 


LET YOUR HOME COMPUTER HELP YOU PICK SUNDAY'S WINNERS ON SATURDAY. 

COMPLETE PROFESSIONAL Football RECORDS FROM 1970 - RIGHT UP TO THE MIN 

























number is zero, then no more hits. After a hit, continue 
search with SYS (or JSR) to “DECPT 

"BEGIN" Put KEY into BUFFER. 

Set POINTER from NEXT EMPTY RECORD No. 


Program 2: 

Contained-in Search In BASIC And Machine 
Language 

The operation is similar to routine in Program 1. 


"DECPT" Decrement POINTER by one. If zero, then 
RETURN. 

(in BASIC) 

10 AD=POINTER*LEN+OFFSET 
20 FOR 1=0 TO LEN-1 
30 X=PEEK(BUFFER+I) 

40 IF X=0 THENRETURN 

50 IF PEEK(AD+I)<>X GOTO"DECPT" 

60 NEXTI:RETURN 

(in machine language) 

Put POINTER'LEN in REGISTER 
Add OFFSET to REGISTER 
LDY #0 

“CONT"LDA (REGISTER),Y 
BEQ "END" 

CMP (BUFFER),Y 
BNE "DECPT" 

I NY 

CPY #LEN 
BCC "CONT" 


"BEGIN" Put KEY into BUFFER. 

Set POINTER from NEXT EMPTY RECORD No. 
"DECPT" Decrement POINTER by one. If zero, then 
RETURN. 

(in BASIC) 

10 AD=POINTER*LEN+OFFSET 
20 FOR 1=0 TO LEN-1 
30 X=PEEK(BUFFER+I) 

40 IF(PEEK(AD+I)ANDX)<>X THEN RETURN 
50 NEXTI:RETURN 

Put POINTER'LEN in REGISTER 
Add OFFSET to REGISTER 
LDY #0 

"CONT"LDA(POINTER),Y 
EOR #$FF 
EOR (BUFFER),Y 
INY 

CPY #LEN 
BCC "CONT" 

RTS 


GIVE YOUR VK20&64 
IEEE PLUS RS232 


VIC and 64 users 

Would you like to be able to access any of these 
peripherals from your computer? 

• % megabyte disks (Commodore 4040 drive) 

• 1 megabyte disks (Commodore 8050 drive) 

• 10 megabyte disks (Commodore 9090 hard disk 

• Printers including a wide range of inexpensive 
IEEE and RS232 matrix and quality printers 

• IEEE instruments such as volt 


Now you are no longer limited 
by the VIC or the 64's serial bus. 
Simply by attaching INTERPOD 
you can vastly increase the 
power of your VIC 20 and when 
used with the new 64, INTERPOD 


SJB DISTRIBUTORS INC. 1C 



turns tile computer into a really powerful system. 
With INTERPOD the VIC and 64 become capable of 
running really professional quality software such as 
Word-processing, Accounting, Instrument control and 

INTERPOD will work with any software. No extra 
commands are required and INTERPOD does not 
affect your computer in any way. 

Using INTERPOD is as easy as 
this: 

Simply plug INTERPOD into the 

power-up and you are ready to 
communicate with any number 
of parallel and serial IEEE devices 
and any RS232 printer. 


Tel. 214 3431328 




Neat Numbers 
On The VIC 

Daniel E Diok 


These subroutines will print numbers and display cal¬ 
culations on a TV or a printer in easily read columns. 
There are several solutions here to common formatting 
problems. 


I use a VIC-20 and VIC-1515 printer in designing 
programs for my work in energy studies. I find 
that the familiar TAB and the CHR$(16) functions 
leave something to be desired when you are send¬ 
ing numbers to a monitor or printer. Both TAB 
and CHR$ left justify columns of numbers. The 
VIC-20 also does not include a PRINT USING 
statement for right justifying columns of numbers 
or for placing commas between numerical units 
in the thousands. 

As you can see from these examples: 

99999 is more easily read as 99,999 

12345678 is more easily read as 12,345,678 


And a column of numbers 
(and checked for addition) if it 
well. The column of numbers t 
to read and total: 

is more easily read 
is right justified'as 
o the right is easier 

50.65 

1.10 

250.40 

1.10 

2500.00 

Program 1 is a short and si 
right justify and display real m 

imple program to 
umbers on the 

InEUt 


if 

Mil 

nil 

nil 

£.21 

£.21 


Program 2 right justifies and prints integers 
up to 999999999 (999,999,999) - VIC's limit of stan¬ 
dard notation. 


INPUT OUTPUT 



Program 3 right justifies and prints real num¬ 
bers up to 9999999.99 (9,999,999.99) which is the 
limit of standard notation in the VIC-20. 



Program 4 displays and prints specific data 
and calculated results in a tabular form that is 
legible and understandable. Programs 2 and 3 
have been integrated into the main program in 
lines 5000-5050 and 5100-5180. 

Lines 10000-10050 are a helpful subroutine 
for renumbering lines (published in COMPUTE!, 
April 1982). 
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Program 1: 

Right-Justified Real Numbers Displayed On 
Screen 


Program 3: 

Right-Justified Real Numbers up to 9999999.99 

10 REM..RIGHT JUSTIFY3 
20 0PEN1.4 

25 PRINT#1,CHR$(16)"07INPUT";CHR$(16)"46 
OUTPUT" 

27 PRINT#1,CHR$(16)"07^5 T3"!CHR$(16)" 
46§6 T3":PRINT#1 
30 INPUT"A NUMBER";N 
32 DEF FNR(N)=(INT(100*N+0.5))/100 


10 REM..RIGHT JUSTIFY TO SCREEN 
20 INPUT"A NUMBER";N 

30 IF N=>1 THEN PRINT TAB(15-LEN(STR$(IN 
T(N))))N 

40 IF N<1 THEN PRINT TAB(14)N 
50 GOTO 20 


Program 2: 

Right-Justified Integers Up To 999999999 

10 REM..RIGHT JUSTIFY2 
20 0PEN1,4 

25 PRINT#1,CHR$(16)"07INPUT";CHR$(16)"46 
OUTPUT" 

27 PRINT#1,CHR$(16)"07|5 T3";CHR$(16)" 
46E6 Ti":PRINT#1 
30 INPUT"A NUMBER";N 



60 GOSUB 900 

70 PRINT# 1, CHR? (16) "06 "NCHR? (16) "40 “S$ 
80 GOTO 30 
90 CLOSE1.4 

900 N=INT(N):S$=STR$(N) 

910 L=LEN(S?):S$=MID$(S$,1,L) 

920 S$=RIGHT$(BL$,10-L)+S? 

930 IF N<=999 THEN S$=LEFT?(S?,7)+" 

{2 SPACES}"+RIGHT$(S$,3) 

940 IF N>999 AND N<=999999 THEN S$=" ”+L 


40 W=N*100 

50 BL$="{13 SPACES}" 

60 GOSUB 900 

70 PRINT#1 , CHR$ (16) "06 "N?CHR$ (16 )*"37"S$ 
80 GOTO 30 
90 CLOSE1,4 
900 S$=STR$(W) 

910 L=LEN(S$):S$=MID$(S$,1,L) 

913 IF L=2 THEN S$=MID?(BL$,1,12)+".0"+R 
IGHT?(S$,1):RETURN 
915 D$="."+RIGHT$(S$,2) 

917 S$=LEFT$(S$ , L—2)+D$ 

920 S$=RIGHT?(BL$,12-L)+S$ 

930 IF N<=999.99 THEN S$=LEFT$(S$,7)+" 

{2 SPACES}"+RIGHT$(S$ f 6) 

940 IF N>999.99 AND N<=999999.99 THEN S$ 
=" "+LEFT$(S$ , 7)+",”+RIGHT?(S?,6) 

950 IF N>999999.99 THEN S?=LEFT$(S$,4)+" 
,"+MID$(S?,5,3)+","+RIGHT?(S$,6) 

970 RETURN 


Program 4: 

Numerical Data Displayed And Printed In 
Tabular Format 

20 REM..ENERGY ANALYSIS1 
30 OPENl,4 
40 PRINT#1:PRINT#1 
50 GOTO 290 
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Standard VIC 20 

no additional memory needed 
(CG008) Alien Panic $12.95 

Race against time as your guy digs holes to trap 
aliens in 4 floor laddered, brick construction site. 
Requires joystick. 

(CG096) Antimatter Splatter $24.95 

This game is as good as its name. Another pure 
machine code game, this one is fast! The alien at' 
the top of the screen is making a strong effort to 
rid the world of humankind by dropping anti¬ 
matter on them. The splatter cannon and you are 
our only hope as more and more antimatter falls. 
Joystick again is optional equipment. 

(CG026) Collide $12.95 

“Vic" controls one, you the other as cars go 

opposite directions on 4 lane track. Requires 

joystick. 

(CG094) Exterminator $24.95 

Recently scoring a rating of 10 out of a possible 
10 this game was praised as “one of the best I've 
seen on any computer" by a prominent reviewer 
in a leading magazine. The idea is to shoot a 
centipede before it overuns you, the problem 
being every time you hit it, it divides into two 
separate shorter ones. Several other little 
creatures bounce around duringthisstruggle. All 
of them lethal. 100% machine language makes 
the rapid fire action very smooth. A joystick is 
optional, but as always, recommended, (a trac 
ball is also very nice!). 

(CG054) Krazy Kong $12.95 
Three screens, a gorilla, barrels, and changing 
difficulty levels help to make this one of our most 
popular. Joystick optional. 

(CG098) Racefun $19.95 
Extensive use of multicolored character capabili¬ 
ties of the “Vic” make this one very appealing 
the eye. Fast all machine language 
action, quick response to thi 
keyboard controlled throttle, 
with the challenge of driving 


(CG058) Rescue From Nufon $12.95 

Must find 30 hostages in this 100 room, 5 story, 
alien infested, graphic adventure game. A 
continual big seller. Keyboard only (n. = north w = 
west etc.) 

(CG068) The Catch .. . $12.95 

Another all machine language game based on the 
principle that one person with one joystick 
guiding one catch/shield can catch everything 


slowly a 


■st but by tt 
. “The Catcl 


t one. The action comes 


Expanded Memory Vic 20 Games 

(CG090) Defender On Tri $19.95 

Pilot a defender style ship on mission to save 
trapped scientists from a fiery fate (they are 
aboard an alien vessel deep in the gravity well of 
sol). Excellent graphics. Short scene setting story 
in the instructions. “Defender On Tri” requires at 
least 3K added memory. 

(CG092) 3D Man $19.95 

The maze from probably the most popular arcade 
game ever, with perspective altered from over¬ 
head to eye level. The dots, the monsters, the 
power dots, the side exits, the game is amazing. 
“3D Man" requires at least 3K added memory. 
(CG088) Space Quest $19.95 
Our first 8K memory expander game and its a 
beauty. The scene (a short story is included) is far 
in the future, a time when man's knowledge has 
reduced an entire galaxy into a mapped series of 
quadrants. This game has stratagy (you plotyour 
own hyperspace jumps on Galaxy map), action 
(against a starry background you find yourself 
engaged in a dogfight, laser style), exploration 
(you must fly your ship deep into caverns to pick 
up necessary fuel). “Space Quest” requires at 
st 8K memory expansion and a joystick. 

Commodore 64 

(CG602) 3D-64, Man $19.95 

le expanded “Vic 20" 
in completely rewritten for 



MUfSKO? 


P.O. Box 156, Shady Cove, Oregon 97539-0156 


C.O.D. Orders...call (503) 878-2113 




















0 PRINT#1,"YOUR ENERGY CONSUMPTION FOR 
SPACE HEAT DURING YEAR CHOSEN:" 

0 DIM QUAN(5),QUAN?(5),UNIT?(5),FUEL?( 
5 ) , CST (5 ), CST? (5 ) , ENCST (6) , ENCST$ (6) 

0 PRINTfl 

0 PRINTfl,CHR?(16)"08NO.UNITS";CHR?(16 
)"20UNIT";CHR?(16)"30FUEL"; 

0 PRINTfl,CHR$(16)"51UNIT COST"jCHR?(l 
6)"66FUEL COST" 

0 PRINTfl,CHR$(16)"08g8 T3";CHR?(16) 
"2064 t3",-chr?(16)"306ii t3"; 

0 PRINTfl,CHR?(16)"5l69 T3";CHR?(16) 
"6669 T3" 

0 PRINTfl 

0 PRINT"{CLR}INPUT GALS OF FUEL OIL":I 
NPUT QUAN(l) 

0 PRINT"INPUT DECIMAL COST PER GAL":IN 
PUT CST(l) 

0 PRINT"INPUT CCF OF NATURAL GAS":INPU 

0 PRINT"INPUT DECIMAL COST PER CCF":IN 

0 PRINT"INPUT KWH OF ELECTRICITY":INPU 

0 PRINT"INPUT DECIMAL COST PER KWH":IN 
PUT CST(3) 

0 PRINT"INPUT CORDS OF WOOD”:INPUT QUA 


440 PRINT "INPUT DECIMAL C 


":INPUT QUAN 


0 PRINT"INPUT DECIMAL COST PER TON":IN 

0 PRINT "WANT TO CHANGE ANY INPUTS (Y/N) 
":INPUT C$ 

0 IF C$="Y" THEN GOTO 370 
0 BS?="{12 SPACES}" 

0 FOR R=1 TO 5 
0 READ UNIT? (R) , FUEL? (R) 

0 ENCST(R)=QUAN(R)*CST(R) 

0 ENCST(6)=ENCST(6)+ENCST(R) 

0 N=QUAN(R):W=N*100:GOSUB 5100:QUAN?(R 

0 N=CST(R):W=N*100:GOSUB 5100:CST?(R)= 
S? 

0 N=ENCST(R):W=N*100:GOSUB 5100:ENCST? 

0 PRINTfl,CHR?(16)"01"QUAN?(R);CHR?(16 
)"20"UNIT?(R);CHR?(16)"30"FUEL?(R); 

0 PRINTfl,CHR?(16)"45"CST?(R);CHR?(16) 
"60"ENCST?(R) 


( 6 ] 


ST(6) 


0:GOSUB 5100:ENCST? 


0 PRINTfl, CHR? (16) "64612 .T}|" 

0 PRINTfl,CHR?(16)"45TOTAL COST 

(2 SPACES}?";CHR?(16)"60"ENCST?(6) 

0 PRINTfl 
0 GOTO 920 

0 PRINT"WAIT FOR PRINTER TO COMPLETE T 
HIS SECTION":PRINT 

0 DIM UBTU (5 ) , UBTU? (5 ) ,-BTUC (6 ) , BTUC? (6 

) 


950 PRINT#1,CHR?(16)"49BTU/UNIT";CHR?(16 
)"65BTU 1 S CONSUMED" 

960 PRINTfl,CHR?(16)"0868 T3";CHR?(16) 
"2064 T§";CHR?(16)"30612 T3"; 

970 PRINTfl,CHR?(16)"4968 T5";CHR?(16) 
"65614 T§" 

980 PRINTfl 
990 FOR R=1 TO 5 

1000 UBTU(1)=140000:UBTU(2)=100000:UBTU( 
3)=3414:UBTU(4>=20000000 
1010 UBTU(5>=20000000 
1020 BTUC(R)=QUAN(R)*UBTU(R) 

1030 BTUC(6)=BTUC(6)+BTUC(R) 

1040 N=QUAN(R):W=N*100:GOSUB 5100:QUAN?( 

1050 N=UBTU(R):GOSUB 5000:UBTU?(R)=S? 
1060 N=BTUC(R):GOSUB 5000:BTUC?(R)=S? 
1070 PRINTfl, CHR? (16 ) mr'QUAN? (R) ; CHR? (1 
6)"20"UNIT?(R); 

1080 PRINTfl,CHR?(16)"30"FUEL$(R) ;CHR?(1 
6)"45"UBTU?(R);CHR?(16)"65"BTUC?(R) 
1090 NEXT R 

1095 N=BTUC(6):GOSUB 5000:BTUC?(6)=S? 
1100 PRINTfl,CHR?(16)"65614 T3" 

1110 PRINTfl,CHR?(16)"50TOTAL";CHR?(16)" 
65"BTUC?(6) 

1120 PRINTfl 
1130 PRINTfl 
1140 PRINT 
1145 END 

5000 N=INT(N):S?=STR?(N) 

5010 L=LEN(S?):S?=MID?(S?,1,L):S?=RIGHT? 
(BS?,10-L)+S? 

5020 IF N<=999 THEN S?=LEFT?(S?,7)+" 

(2 SPACES} "+RIGHT? (S?, 3 ) 

5030 IF N>999 AND N<=999999 THEN S?=" "+ 
LEFT?(S?,7)+","+RIGHT?(S?,3) 

5040 IF N>999999 THEN S?=LEFT?(S?,4)+"," 
+MID?(S?,5,3)+","+RIGHT?(S?,3) 

5050 RETURN 

5100 S?=STR? (W) :L=LEN(S? ) : S?=MID? (S?, 1, L 

5110 IF L=2 THEN S?=MID?(BS?,1,12)+".0"+ 
RIGHT?(S?,l):RETURN 
5120 D?="."+RIGHT?(S?,2) 

5130 S?=LEFT?(S?,L-2)+D? 

5140 S?=RIGHT?(BS?,12-L)+S? 

5150 IF N<=999.99 THEN S?=LEFT?(S?,7)+" 

{2 SPACES}"+RIGHT?(S?,6) 

5160 IF N>999.99 AND N<=999999.99 THEN S 
?=" "+LEFT?(S?,7)+","+RIGHT?(S?,6) 
5170 IF N>999999.99 THEN S?=LEFT?(S?,4)+ 
","+MID?(S?,5,3)+","+RIGHT?(S?,6) 
5180 RETURN 

9000 REM PAUSE TO READ SCREEN 
9010 PRINT"HIT 'RETURN' KEY TO CONTINUE" 
9020 INPUT CONT?:RETURN 
9990 END 

10000 REM..RENUMBER LINES1 
10010 Y6=4096:Y7=10 

10020 IF PEEK(Y6+3)=6 AND PEEK(Y6+4)=39 

10030 Y8=INT( Y7/256) : Y9=Y7-256*Y8: POKE Y 
6+3, Y9 : POKE Y6+4.Y8 

10040 IF PEEK(Y6+5)<>0 THEN Y6=Y6+l:GOTO 
10040 

10050 Y7=Y7+10:Y6=Y6+5:GOTO 10020 



commodore 
VIC20-SPECIAL OFFER 



FREE GORTEK & MICROCHIPS VL110 Cassette pro- 
gram (retail value $24.95) with purchase of VIC20 at 
special low SAVE price $99.00. 

Dmmodore VIC20/64 1541 Single Disk Drive. 

Dmmodore VIC20/64 1530 Datassette. 65.00 

Dmmodore VIC20/64 1525 Printer. 

Dmmodore VIC20/64 1701 Color Monitor. 245.00 

Dmmodore VIC20/64 1600-Vicmodem (Telephone 


•Call for current price. 
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Texas Instruments TI-99/4A 
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hardware and software for 
Tl home computers. 

PHM 3026 Extended Bas 



ter today for orders only. 

Use your American Express, VIS<----- 

money order. Minimum order of $50. Shipping and handling 
charges are extra. All prices are subject to change without 
notice. Allow 2-4 weeks for delivery. Prices good through 


Order Toll Free 1-800-241-2682 In Georgia (404) 351-8459 


















Program 5: 

Shorter Version Of Right-Justified Real Numbers 

10 REM..RIGHT JUSTIEY TO PRINTER 
15 0PEN1,4:CMD1 

18 PRINT TAB(40)"OUTPUT" 

19 PRINT TAB(40)" £6 T3":PRINT 

20 INPUT N 

30 IF N=>1 THEN PRINT TAB(40-LEN(STR?(IN 
T(N))))N 

40 IF N<1 THEN PRINT TAB(39)N 
50 GOTO 20 


COMPUTE! 
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In NC 919-275-9809 


Atari Verify 

- Michael J Barkan 


Using less than IK of memory, this utility program for 
cassette can save you a lot of time and frustration. 


I had recently made a CSAVE and a LIST'C:" (after 
about five hours of typing) and neither of them 
had saved the program. This sort of thing is more 
than distressing. My solution is neither elaborate 
nor entirely original, but it works. 

Ed Stewart's article in COMPUTE!'s Second 
Book of Atari on backing up machine language 
tapes served as the inspiration for my program. 
Stewart's program reads a block of data from the 
cassette tape, puts it in a string, reads another 
block, adds it to the string, and so on. The string 
eventually contains the entire program. Of course, 
the string needs to be as big as the computer's 
memory, so I couldn't use the method directly. 

I know absolutely nothing about machine 
language except that when I try to change some¬ 
thing, the system crashes - so I didn't change 
anything. The trick was to fool the machine lan¬ 
guage program. Locations 203 and 204 (decimal) 
contain the starting address of string A$. All I had 
to do (sounds easy, now) was reset these locations 
so that the machine language subroutine would 
"forget" that it had already put something into 
A$. This means that A$ needs to hold a maximum 
of only 128 bytes, the size of one cassette data 
block. Therefore, this program, once running, 
takes up less than IK of memory; A$ just keeps 
reusing the same 128 bytes. 

To use this utility, type it in and save it with 
LIST"C:". Load the program youwant to save, or 
start typing in a new program. Make sure your 
program starts at line 10 or higher. CSAVE it. 

Now ENTER"C:" this utility and run it. It will ask 
you to start loading the tape with your new - pro¬ 


gram. If the tape runs all the way through and 
ends with an end-of-file flag, you'll get a "GOOD 
TAPE" message. If the tape is not readable, you'll 
get an error message (my favorite is 143), but your 
program is still in the computer, so you can try again. 
Delete lines 0 through 9 first, though. 

If your tape is of the ENTER"C:" variety, just 
change the 255 in line 4 to 0, and the program will 

That's all there is to it. Not quite like having a 
disk drive, but at least now tape storage will be 
far less likely to cause you distress. 


Atari Verify 



CHR*(125>;"INSERT TAPE TO TEST": 
"PRESS ANY KEY TO BEGIN" 


INTER-RECORD GAPS 



B ? "ERROR - PEEK<195):END : REM TA 


PE IS NOT READABLE 

























































































PLOTting On The Apple 

- Thomas P. Anderson 


How to plot and handle the screen on Apple's high 
resolution screen. Requires 16K RAM. This machine 
language routine simplifies screen graphics. 


This little study of mine, which began about three 
months ago, first started after I had written a short 
BASIC program to plot pictures on the high reso¬ 
lution screen with four lines of text at the bottom. 
The entire screen memory had to be saved to store 
the picture on the disk. To avoid this waste of 
space, I decided to find out the memory locations 
of the four bottom screen lines. I could then devise 
a method of saving all screen memory except for 
those four lines. 

I quickly found the necessary addresses, but 
in the process I also noticed how strangely the 
screen memory was laid out. There had to be a 
way of decoding the inconsequent order of screen 
memory, so that a specific point on the screen 
could be referenced easily. 

How does Applesoft do it? 1 found absolutely 
no documentation of this subject. I could have 
waded through about 8K of disassembled code 
and still not found the answer, so I was on my 
own in figuring this one out. In this article, I am 
relating to you what I have found out about PLOT¬ 
ting on the high resolution screen in machine 
language. 

Base Addresses 

First of all, a review of the hi-res screen layout. 
The screen has a resolution of 192 lines by 280 
dots. The lines are referenced by the decimal 
values 0-191, and the dots are referenced by the 
decimal values 0-279. The position of (0,0) is in 
the upper left-hand comer. 

Seven consecutive dots of a line are controlled 
by the value stored in one byte of memory, so 40 
bytes are required to control one line. These 40 
bytes, referenced by the decimal values 0-39,1 
will call the column position. The zero, column 
position is the base address in memory of the 
line. To see what values are necessary to turn on 
a dot, we have to look at the bit patterns of the 
controlling byte. 
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Screen Column Position Controlling Memory Byte 



Shown above are seven consecutive dots on 
the screen and the controlling byte. If bit three of 
the controlling byte is on, then the dot in position 
three within the column will be on. Bit seven of 
the controlling byte will be zero for this article, 
since I am not concerned here with manipulating 
the screen colors. 

What To Calculate 

Once I had reviewed the basics of screen memory, 
my problem became defined for me. The routines 
I had to write would take two decimal values: 1) a 
line number in the range of 0-191, and 2) a dot 
position in the range of 0-279. From these values 
the routines would calculate: 

1) The 16-bit hexadecimal base address, 

2) The column position in the range of 0-39, 

and 

3) The dot position within the column in the 

range of 0-6. 

I will explain the calculation of the base ad¬ 
dress first, since it is the complicated one. To un¬ 
derstand this, I had to know what all the possible 
base addresses of page two could be. I used page 
two during the testing because PLOTting on page 
one wrote over my source file in memory, and it 
had to be reloaded after every test. 

All base addresses lie within the range of 
$4000-$7FD0. This means that the high byte of 
our address will be in the range of $40-$7F, and 
the only possibilities for the low byte are $00, $28, 
$50, $A8, or $D0. To see how this works exactly, I 
assigned variables to the bit positions of the line 
number. 

Since we know the maximum and minimum 
value of the base address, we know that certain 
bits of the base address will always be off or on 
no matter what the line number is. Shown below 
are the assigned variables of the line and the start¬ 
ing framework of the base address. 







Line Number 

B | C | D | E | F I~G~|h] 


High Byte Low Byte 


Figuring Bit Positions 

The steps that follow are the ones that I used to 
figure the bit position of the line that would de¬ 
termine the value of a bit position in the base 
address. 

1. Choose a questionable bit position of the 
base address. 

2. Determine all the possible values of that 
byte if the bit is on. 

3. Determine all the possible values of that 
byte if the bit is off. 

4. Determine all the possible values of the 
line number based on the values found in 
Step 2. 

5. Determine all the possible values of the 
line number based on the values found in 
Step 3. 

6. By examining the binary values of the line 
numbers, the bit patterns are easily seen. 
There will be one bit position in the values 
from Step 4 that is always the complement of 
that same bit position in the values from Step 
5. Therefore, this bit position of the line 
number is the determining bit for the ques¬ 
tionable bit in Step 1. 

Using these steps for all questionable bits of 
the base address, I ended up with the representa¬ 
tion of the base'address as shown below. 


|o|i| o|f|g|h[cTd| I E I A 1 B I A I B I oT^T^I 


High Byte Low Byte 

Now that I had figured out the starting and 
ending representations, I wrote the routine HBAS- 
CALC to perform this operation. This routine is 
shown in Program 1. The routine is entered with 
the line number in location HCV and exits the 
routine with the base address in locations HBASL 
and HBASH. The documentation explains the 
process and shows how the variable representa¬ 
tions are manipulated by each instruction. This 
routine can be easily changed to use page one by 
changing the instruction ORA#$40 to ORA#$20 
and setting the appropriate soft switches for page 


That may have been a bit complex; but now 
that you have the HBASCALC routine, you won't 
have to follow those steps as I did. 

Calculating the column position and the dot 
position within the column was a simpler task for 
me. Since there are 280 dots to represent with 40 
bytes of memory, I needed to divide the dot posi¬ 
tion by seven. The quotient would be the column 
position, and the remainder would be the dot 
position within the column. At first I used the 
standard 16-bit by 16-bit division routine, but this 
process seemed a little slow for PLOTting. 

So I tried another routine which simply sub¬ 
tracted seven from the dot position until it went 
to less than zero. An index register was used to 
count the number of times seven could be sub¬ 
tracted, which gave me the column position, and 
then adding seven back to the now negative dot 
position gave me the dot position within the 
column. 

Being unsure of the speed of this routine, I 
calculated the time required by each routine to 
plot 280 positions, one full line, and I found that 
the second routine used about 120,000 machine 
cycles less than the standard routine. The faster 
routine is called DIVIDE and is shown with the 
demo program (Program 2). 

Plotting A Grid 

This division process is the most time consuming 
aspect of hi-res plotting. I learned quickly that if 
the main driving routine consists of nested loops, 
as Hi-res Grid Demo does, then the division 
routine should be used in the outer routine, or 
the entire routine will be greatly slowed. If the 
division is performed in the inner loop, it will be 
executed for every dot plotted. If the division is 
performed in the outer loop, it will be executed 
only when the dot position changes. 

Program 2, Hi-res Grid Demo, will accept 
input from the user in the range of 1-9. It then 
draws the grid with the number input as the 
number of spaces between each line of the grid. 
The program PLOTs the grid until it goes off the 
edge of the screen, and then it goes back and erases 
the excess plots to make a neater appearing grid. 
The program will terminate with a CONTROL-C. 

Hi-res Grid Demo is fairly simple, but its pur¬ 
pose is to show you the basic routines used in 
PLOTting with machine language. Perhaps it will 
stimulate you to look further to other possibilities, 
such as color PLOTting, line drawing routines, 
animation, and faster game design than BASIC 
will allow. I know it has me working on other 
ideas. As for my original objective, the saving of 
hi-res pictures without the four bottom lines, I 
forgot all about that once I discovered the other 
interesting possibilities at my fingertips. 
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Program 1: Base Address Calculation 

1 * LISTING 1. 


3 *********************************************** 

4 *HIRES BASE ADDRESS CALCULATION ROUTINE,PAGE 2* 


6 HBASCALC PHA 


10 


13 

15 


18 

19 

21 


23 

24 



;ABCDEFGH; 
;BCDEFGHO; 
;CDEFGHOO; 
;OOOFGHQO; 
;010FGH00; 
;010FGH00; 
;ABCDEFGH; 
;OABCDEFG; 
;OOABCDEF; 
;OOOABCDE; 
;OOOOABCD; 
;OOOOOOCD; 
;010FGHCD; 
;010FGHCD; 
;ABCDEFGH; 
;ABOOOOOO; 
;ABOOOOOO; 
;EABOOOOO; 
;EABOOOOO; 
;ABOOOOOO; 
;OABOOOOO; 
;OOABOOOO; 
;OOOABOOO; 
;EABABOOO; 
;EABABOOO; 


GET VERT. POS.(0-191). 

SHIFT LEFT UNTIL BITS 

"FGH" ARE IN CORRECT POSITION. 

TURN OFF ALL BUT BITS "FGH". 

BIT SIX IS ALWAYS ON. 

SAVE THIS PORTION. 

START AGAIN. 

SHIFT RIGHT UNTIL THE 
"E" BIT SHIFTS TO CARRY. 

AND BITS "CD" 

ARE IN CORRECT POSITION. 

TURN OFF ALL BUT "CD" AND 
MERGE TO COMPLETE HI-BYTE 



GET "E" BIT BACK FROM CARRY. 
SAVE THIS PORTION. 

PULL BACK BITS "AB" AND 
SHIFT RIGHT UNTIL THEY 
ARE IN CORRECT POSITION. 

MERGE TO COMPLETE LO-BYTE. 


Program 2: Hi-res Grid Demo 

1 * LISTING 2 


******************* 

* HIRES GRID DEMO * 

* BY TOM ANDERSON * 


* SYSTEM SOFT SWITCHES 


KBD EQU *C000 
KBDSTR EQU *C010 
GRAPHICS EQU *C050 
HIRES EQU *C057 
PRIMARY EQU *C054 
ALLGR EQU *C052 
TXTMODE EQU *C051 
SECOND EQU *C055 


;READ KEYBOARD 
;CLEAR KEYBOARD 
;GRAPHICS MODE 
;HI-RESOLUTION GRAPHICS 
;PAGE ONE 

;FULL SCREEN GRAPHICS 
;TEXT MODE 
;PAGE TWO 


*PAGE ONE LOCATIONS USED 


21 CH 

22 CV 

23 HCV 

24 HPOSLO 

25 HPOSHI 

26 HBASL 

27 HBASH 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


25 

25 


27 

28 


;TEXT COLUMN POSITION(0-39) 
;TEXT LINE POSITION(0-23) 

;HIRES LINE POSITION(0-191) 
;HIRES DOT POSITION(0-279) 

;HIRES LINE BASE ADDRESS 


28 REMLO 

29 REMHI 

30 GRIDSZ 

31 RTMARG 


EQU 

EQU 

EQU 

EQU 


2C 

2D 

2E 

2F 


;REMAINDER IN DIVISION ROUTINE 
;VALUE OF GRID SIZE 







32 * 

33 ^MONITOR ROUTINES 

34 « 


7000: 

7003: 

7006: 


36 

37 

C2 70 38 
9B 70 39 
4A 71 40 

41 

42 

43 


COUT EQU *FDED 

HOME EQU *FC58 

BASIC EQU *3D0 

START JSR PRDISP 
JSR INPUT 
JSR INHRES 


;CHARACTER OUTPUT ROUTINE IN MONITOR 
;MONITOR ROUTINE TO CLEAR TEXT PAGE 
;VECTOR TO RETURN TO CURRENT BASIC 
;DISPLAY INPUT PROMPT 
;BET USER INPUT 
5 INITIALIZE HIRES MODE 


* DRAW VERTICAL LINES * 


7009: A9 00 44 

700B: 85 26 45 

700D: 85 27 46 

700F: A9 00 47 

7011: 85 25 48 

7013: 20 EF 70 49 

7016: 20 21 71 50 

7019: 20 10 71 51 

701C: E6 25 52 

701E: A5 25 53 

7020: C9 C0 54 

7022: 90 F2 55 

7024: 18 56 

7025: A5 26 57 

7027: 65 2E 58 

7029: 90 02 59 

702B: E6 27 60 

702D: 85 26 61 

702F: A5 27 62 

7031: 4A 63 

7032s 90 DB 64 

7034: AS 26 65 

7036: C9 18 66 

7038: 90 D5 67 

703A: E5 2E 68 

703C: 85 2F 69 

70 

71 

72 

703E: A9 00 73 

7040: 85 26 74 

7042: 85 27 75 

7044: A9 00 76 

7046: 85 25 77 

7048: 20 EF 70 78 

704B: 20 21 71 79 

704E: 20 10 71 80 

7051: 18 81 

7052: A5 25 82 

7054: 65 2E 83 

7056: 85 25 84 

7058: C9 C0 85 

705A: 90 EF 86 

70SC: E6 26 87 

705E: D0 02 88 

7060: E6 27 89 

7062: A5 27 90 

7064: 4A 91 

7065: 90 DD 92 

7067: A5 26 93 

7069: C5 2F 94 

706B: 90 D7 95 

706D: A5 25 96 

706F: E5 2E 97 

7071: 85 25 98 

7073: A9 00 99 


VERT 


VERT1 


LDA #0 ;START AND RESET DOT POSITION TO ZERO 

STA HPOSLO 
STA HPOSHI 

LDA #0 ;START LINE ZERO 

STA HCV 

JSR DIVIDE ;CALCULATE HORIZONTAL OFFSET 
JSR HBASCALC ;CALCULATE LINE BASE ADDRESS 
JSR DISPLAY ;TURN ON ONE DOT 
INC HCV ;LINE«LINE+1 
LDA HCV 

CMP #192 ;BOTTOM OF SCREEN? 

BCC VERT1 ;NO, GO BACK 
CLC 


OVERV 


LDA 

ADC 

BCC 

INC 

STA 

LDA 

LSR 

BCC 

LDA 

CMP 

BCC 


HPOSLO 

GRIDSZ 

OVERV 

HPOSHI 

HPOSLO 

HPOSHI 


;DOT POSITION—DQT POSITIQN+GRIDSZ 


;END OF LINE? 


VERT 

HPOSLO 

#*18 

VERT 


5 NO, GO BACK 


SBC GRIDSZ ;RTMARG=LAST DOT POSITION PLOTTED 
STA RTMARG 

* DRAW HORIZONTAL LINES * 

LDA #0 ;START DOT POSITION ZERO 

STA HPOSLO 
STA HPOSHI 

HORIZ LDA #0 ;START AND RESET LINE TO ZERO 


HORIZ1 


STA HCV 

JSR DIVIDE ;CALCULATE HORIZONTAL OFFSET 
JSR HBASCALC ;CALCULATE LINE BASE ADDRESS 
JSR DISPLAY ;DISPLAY VALUE TO TURN ON ONE DOT 
CLC 


OVERH 


ADC GRIDSZ ;LINE=LINE+GRIDSZ 
STA HCV 

CMP #192 ;BOTTOM OF SCREEN? 

BCC HORIZ1 ;NO, GO BACK 

INC HPOSLO ;YES,DOT POS.-DOT POS.+l 

BNE OVERH 

INC HPOSHI 

LDA HPOSHI 

LSR 

BCC HORIZ 
LDA HPOSLO 

CMP RTMARG ;REACHED RIGHT MARGIN? 

BCC HORIZ ;NO, GO BACK 

LDA HCV ;DETERMINE BOTTOM CUTOFF POINT 
SBC GRIDSZ 
STA HCV 
LDA #0 







7075 

7077 

707A 

707C 

707D 

707F 

7081 


7091 

7093 

7095 


70 A3 
70A5 
70A7 
70 A A 
70AD 


70B7 

70B9 

70BB 

70BD 


70C2 
70C5 
70C8 
70CB 
70CD 
70CF 
70D1 
70D3 
70D5 
70D8 
70DB 
70DC 
70DE: 

70DF s A0 BF 


AD 51 C0 
AD 54 C0 
20 58 FC 
A9 0C 
85 25 
A9 0A 
85 24 
A2 0F 
BD DF 70 
20 ED FD 


70F3 

70F5 

70F7 

70F8 


A5 26 
85 2C 
A5 27 
85 2D 


INC HCV 

CLRBTM JSR HBASCALC ;CLEAR UNNESSECARY PLOTS AT 
LDY #40 ;BOTTOM OF THE SCREEN 

03 NXTBYT DEY 

STA (HBASL),Y 
BNE NXTBYT 
INC HCV 
LDX HCV 
CPX #192 
BNE CLRBTM 

RDKEY LDA KBD ;GRID DRAWN, A CONTROL-C AT THIS 
BPL RDKEY ;POINT WILL TERMINATE 
STA KBDSTR ;ANY OTHER KEYSTROKE WILL RESTART 
CMP #*83 
BNE RESTART 
JMP EXIT 

RESTART JMP START 

* USER INPUT * 


INPUT LDA KBD ;SINGLE KEY INPUT 

BPL INPUT 

STA KBDSTR 

CMP #*83 ;CONTROL-C WILL TERMINATE 

BNE DIG ;NOT CNTRL-C 

EXIT JSR HOME 

LDA TXTMODE 

LDA PRIMARY 

JMP BASIC 

DIG CMP #*Bi ;IS IT < i? 

BCC INPUT ;YES,INVALID GO BACK 
CMP #*BA ;IS IT > 9? 

BCS INPUT ;YES,INVALID GO BACK 
AND #*0F ;MASK OFF 4 MSB'S 

ADC #1 

STA GRIDSZ ;THIS IS SIZE OF GRID 

RTS 

************************ 

* DISPLAY INPUT PROMPT * 

««*»*««****»********»**» 

PRDISP LDA TXTMODE ;SET SWITCHES FOR TEXT MODE PAGE ONE 

LDA PRIMARY 

;CLEAR SCREEN 

;SET DISPLAY FOR HTAB 10,VTAB 12 


LDA #12 
STA CV 


LDA 
STA CH 
LDX #15 

LDA PROMPT,X ;GET CHARACTER 
- - ;DISPLAY 


JSR COUT 
DEX 

BNE NXTCHR 


3 PROMPT ASC " ? >9-1(EZISDIRG" 

♦DIVIDE DOT POSITION BY SEVEN * 

DIVIDE LDA HPOSLO 

STA REMLO 
LDA HPOSHI 
STA REMHI 
SEC 

LDY #*FF 
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7103 

7105 

7107 

7109 


7115 
7117 
7119 
711A 


10 FI 
A5 2C 
69 07 
85 2C 


31: 4A 

29 03 
05 29 
85 29 
A5 25 
29 C0 


SBC #0 
STA REMHI 
BPL DIV1 
LDA REMLO 
ADC #7 
STA REMLO 
RTS 

* DISPLAY ROUTINE * 

******************* 

DISPLAY LDX REMLO ;DOT POSITION WITHIN COLUMN(0-6) 
LDA ONBIT,X ;BET VALUE TO TURN BIT ON 
ORA (HBASL),Y ;MERGE WITH VALUE ALREADY THERE 
STA (HBASL),Y ;DISPLAY NEW VALUE 
RTS 

ONBIT HEX 01020408102040 

tHIRES BASE ADDRESS CALCULATION ROUTINE,PAGE 2* 

HBASCALC PHA 

LDA HCV 


6A 


ASL 

ASL 


STA HBASL 


* CLEAR HIRES PAGE TWO * 

************************ 


85 25 
20 21 71 220 
A0 28 


INHRES LDA 


;START LINE ZERO 


222 LINE 


JSR HBASCALC ;NEW BASE ADDR. WHEN H 
LDY #40 ;NUMBER OF COLUMNS 

DEY ;COLUMN=COLUMN-1 

STA (HBASL),Y ;DISPLAY VALUE ZERO 


#192 ;LAST LINE CLEARED? 


7160: 

7163: 

7166: 

7169: 

716C: 


AD 57 C0 232 
AD 50 C0 233 
AD 55 C0 234 
AD 52 C0 235 


LDA HIRES 
LDA GRAPHICS 
LDA SECOND 
LDA ALLGR 
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Relocating VIC Loads 

r tdhyydieff'; 1 ' r ’’ 


When you need to relocate a program in the VIC's i 
ory, you can use this simple technique. 


As most VIC users know, the VIC relocates all 
programs to the start of BASIC memory unless 
told otherwise. For example, LOAD 1,1 tells the 
computer to load the program into the area of 
memory specified by the tape. 

So we have two choices; we can either load a 
program into the start of BASIC memory (usually 
$1000 hex) or load a program back into its original 
location in memory (using a monitor like TINY- 
MON). But what if we want to place a previously 
prepared subroutine at the end of a program, or 
relocate a machine language program to some 
novel place in memory? There's not much we 
could do short of retyping it. 

Basically, what happens during a LOAD is 
that, after a few pointers are stored (buffer loca¬ 
tion, program name, etc.), a routine is called that 
searches the tape for the next program header, 
and then reads it into the cassette buffer. The 
load routine next checks the buffer to find out 
whether the program being loaded is to be placed 
into the locations specified in the buffer or is to be 
relocated to the start of BASIC. Now, if we could 
by-pass the routine that does this, things would 
be much simpler. 

In the figure, you'll see the locations necessary 
to relocate a program anywhere in the VIC's 
memory. 

Use a SYS 63407. The computer will prompt 
with the usual PRESS PLAY ON TAPE. The dif¬ 
ference is that the computer now prints READY 
as soon as the program is found. What has hap¬ 
pened is that the SYS 63407 tells the computer to 
load the next program header and store the infor¬ 
mation in the cassette buffer. 

To find out the original start and end locations 
of your program, type in PRINT PEEK(829) + 
PEEK(830)*256, PEEK(831) + 256*PEEK(832). 

Increasing the value in locations 829 and 831 
by one will place the program one byte higher 
in memory. Increasing the value in locations 830 
and 832 by one will place the program 256 bytes 
higher in memory. Decreasing the values in these 
locations will have the opposite effect. 

After the buffer has been changed, a SYS 


62980 will return control of the computer to the 
load routine. Now load the main body of the pro¬ 
gram into memory, but load it into the new loca¬ 
tions just specified. 

See It Work 

To demonstrate this technique, we'll fill the screen 
with data from tape. The demonstration is for the 
unexpanded VIC, so you'll need to remove or 
disable any memory expansion. To prepare, type 
in the following line in direct mode; 

POKE 46,PEEK(46) + 2 

This reserves two pages (512 bytes) at the end of 
your BASIC program for data. 

Type in the following one-line program exactly 
as it appears. Any additional spaces will cause 
errors. The program will fill the space between 
the end of the program and the start of variables 
with the screen POKE value for the ball character. 

10 F0RA=4124T04629:POKEA,81:NEXT 

After checking your typing, RUN the program 
then SAVE it to cassette. 

Next, rewind the tape and reset the VIC with 
a SYS 64802. Start the relocatable load by typing: 


After the VIC reads the tape header into its buffer 
you can check the original start and end addresses 
by PEEKing addresses 829 - 832 as indicated above. 
The starting and ending addresses should be 4097 


































VIC 20 


40-80 COLUMN BOARD 

® onlv s 99 0(l # 


Now you can get 40 or 80 Columns on your T V. or monitor at one time! No more 
running out of line space for programming and making columns. Just plug in this 
board and you immediately convert your VIC-20 computer to 40 or 80 columns! 

PLUS, you get a Word Processor, Mail Merge program, Electronic Spreadsheet (like 
VISICALC) and Terminal Emulator! These PLUS programs require only 8K RAM 
memory and comes in an attractive plastic case with instruct ions. List $149 Sale $99 


• COMMODORE 64 COMPUTER - “80 COLUMN BOARD” LIST $275 SALE $179 
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"15 DAY FREE TRIAL" nW W ■ I I 

• We have the lowest VIC-20 prices I St# I 

• We have over 500 programs ENTERPRIZES (we love our customers) 

• Visa - Msstercharge - C.O.D. BOX 550, BARRINGTON, ILLINOIS 60010 

• We love our customers! Phone 312/362-5244 to order 


MAKE YOUR VIC-20 
COMPUTER TALK “ 

when you plug in our $0%/ 

VOICE SYNTHESIZER 




* FREE — Your choice of $19.95 4" Speaker and Cabinet or $14.95 Voice Editor if you order 
before June 15,1983! 

"15 DAY FREE TRIAL" ni-I PI TF f^ Tf 1 II 

Ve have the lowest VIC-20 prices f 35 ® (Spf U I I tiaJ 

je over 500 programs ENTERPRIZES <— 

BOX 550, BARRINGTON, ILLINOIS 60010 
Phone 312/382-5244 to order 
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Part VII 


Commodore 64 Video - 
A Guided Tour 

Associate Editor - 


In this, the final installment of our exploration of the 
Commodore 64's unique video design, we look at a 
solution to the pesky ",hiccup" screen glitch. 


Last time, we looked at a simple program to split 
the screen of the Commodore 64. It was similar, 
but not identical, to this one: 

100 FOR J—828 TO 862:READ X 
110 T=T+X:POKE J,X 
120 NEXT J 

200 DATA 173,25,208,41,1,240,25,141,25,2 

08,162,146,160,6,173,18 
210 DATA 208,16,4,162,1,160,0,142,18,208 

,140,33,208,76,188,254,76,49,234 
300 POKE 56333,127 
310 POKE 788,60:POKE 789,3 
320 POKE 56333,129:POKE 53274,129 

Our previous example split the screen into 
two sections: graphics and text. This one splits 
the screen into two background color areas. It 
makes it easier for us to see the glitch - the hiccup 
that occasionally disturbs our screen split. By the 
way, it's easier to see the problem when you are 
using the keyboard. 

Why The Problem? 

Here's where the problem comes from: the timer 
interrupt strikes about every 1/60 of a second. The 
screen display, too, runs at a rate of about 60 times 
a second. But they are not synchronized. The 
two processes run at similar, but not identical. 

Now, every once in a while, the timer inter¬ 
rupt hits just before the raster interrupt. The timer 
interrupt has quite a few jobs to do: update the 
TI$ clock, check the cassette motor, flash the cur¬ 
sor, and check the keyboard. It takes time to do 
these jobs, and extra time is required if a key is 
being pressed. 

Suppose we have just started on the timer 


interrupt, and the raster scan says, "I'm ready!" 
Sorry, raster, we're already into an interrupt 
routine, and other interrupts are locked out until 
we have finished. By that time, the screen scan 
might have moved along a few lines, and our 
split screen has crept from its normal position. 

Some Possible Fixes 

There are several possible approaches to fixing 
this jitter. The ones that come to mind first are 
complex; in a moment, we'll move on to an easy 

When the timer interrupt strikes, we could 
ask it to look at the raster and see if the scan was 
close to the interrupt point. If so, we might wait 
things out, or skip part of the timer interrupt jobs. 
Messy. 

The timer interrupt could "unlock" the inter¬ 
rupt very quickly, using a CLI command. That 
way, we could interrupt the interrupt program 
itself to do the split screen job. Better, but some 
programmers feel it's dangerous to allow this 
kind of thing to happen. 

A Better Way 

There is an easier way: shut the timer interrupt 
off completely, and do its various jobs with our 
own programs. This seems complex, but it's not. 
We can call the timer interrupt routines ourselves, 
whenever it's time. 

Let's look a little more closely into the timing 
of these interrupts. We expect to cause a raster 
scan interrupt about 120 times a second. That's 
twice as often as the timer interrupt needs to be 
handled. So our raster program could occasionally 
call in the timer interrupt program. 

It seems that we could accomplish the task 
easily by calling the timer interrupt routines every 
second raster interrupt. That would certainly do 
the job, but there's a better way. 

Even though we've shut off the timer inter- 
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COMMODORE 64' 

American Peripherals 


GAMES 


EDUCATIONAL EDUCATIONAL 


(on tape) 

646 Pacacuda 19.95 

650 Logger 19.95 

651 Ape Craze 19.95 

652 Centropod 19.95 

653 Escape 19.95 

641 Monopoly 19.95 

642 Adventure #1 19.95 
648 Galactic Encounter 9. 
667 Yahtzee 14.95 

671 Robot Blast 14.95 
673 Moon Lander 14.95 
676 Othello 14.95 

686 Horserace-64 14.95 
692 Snake 14.95 
697 Football 14.95 

819 Backgammon 24.95 

822 Space Raider 19.95 
846 Annihilator 19.95 
842 Zwark 19.95 

845 Grave Robbers 13.95 
841 Pirate Inn Adv. 22.95 
904 Shooting Gallery 14.95 

816 Dog Fight 19.95 

817 Mouse Maze 19.95 

818 Ski Run 22. 

820 Metro 22. 

823 Sub Warfare 29. 

838 Retroball 39.95 
(cartridge) 

839 Gridrunner 39.95 
(cartridge) 

825 Mine Field 13. 

672 Dragster 14.95 
662 Oregon Trail 14.95 
679 3-D TicTacToe 14.95 
655 Castle Advent. 14.95 


(on tape) 

644 Type Tutor 19.95 

645 Assembly Language 
Tutor 14.95 

687 Fractional Parts 14.95 
902 Estimating Fractions 14.95 

695 Tutor Math 14.95 

870 Square Root Trainer 14.95 
699 Counting Shapes 14.95 
694 Money Addition 14.95 

689 Math Dice 14.95 
678 Speed Read 14.95 

643 Maps and Capitals 19.95 
645 Sprite Editor 19.95 
904 Sound Synthesizer Tutor 19. 

696 Diagramming 
Sentences 14.95 

690 More/Less 14.95 

688 Batting AVERAGES 14.95 
802 TicTacMath 16.95 

904 Balancing Equations 14.95 

905 Missing Letter 14.95 
864 Gradebook 15. • 

810 French 1-4 80. 

811 Spanish 1-4 80. 

807 English Invaders 16.95 
809 Munchword 16.95 

812 Puss IN Boot 20. 

813 Word Factory 20. 

660 Hang-Spell 14,95 

905 Division Drill 14.95 

906 Multiplic. Drill 14.95 

907 Addition Drill 14.95 

908 Subtraction Drill 14.95 

910 Simon Says 14.95 

911 Adding Fractions 14.95 

912 Punctuation 14.95 


Series on disk 

Computer Science (30 programs) $350 
HS Biology (70 programs) $500 
HS Chemistry (40 programs) $450 
HS Physics (60 programs) $475 
HS SAT Drill (60 programs) $99. 

Elem. Social Studies (18 pr.) $225 
Elem. Science (18 programs) $225 
Elem. Library Science (12 pr.) $170 
Librarians Package (4 utilities) $110 
3rd Grade Reading (20 lessons) $99. 
4th Grade Reading (20 lessons) $99. 
5th Grade Reading (20 lessons) $99. 
6th Grade Reading (20 lessons) $99. 
Spanish Teaching (12 lessons) $95. 
PARTS OF SPEECH (9 lessons) $95. 


BUSINESS 

(all on disk) 

WORD PRO 3+ 95.00 
DATAMAN-64 data base program. 49.95 
PERSONAL FILING SYSTEM 
(index card style) 19.95 
HOME FINANCE 19.95 
CYBER FARMER $195. 

GA1600 Accounting System 395. 
PERSONAL TAX 80. 

ACCOUNTS RECEIVABLE 22. 

New York State Payroll 89. 

MAILING LIST 24. 

Manufacturing Inventory 59. 

Stock Market Package 39. 

Finance 16.95 


ORDERING BLANK 
To: American Peripherals 
122 Bangor Street 
Lindenhurst, NY 11757 


Town, State, ZIP. 


□ Please send your complete 64K catalog, 
free of charge. 

Commodore 64 is a requested trademark of Commodore LTD. 


ITEM DESCRIPTION PRICE 


NY State Residents 
only add 7Vi% tax 

Shipping 


$1.50 


If Canada or Mexico, 


COD, add 1.50 _ 

add additional 2.00 _ 

TOTAL AMOUNT_ 















rupt, it's still signaling when the time is ready. 
Let's review: the timer leaves a signal in hex ad¬ 
dress $DCOD (56333) whenever it counts down to 
zero. Normally, this signal triggers the interrupt 
line (IRQ) and causes the processor to be inter¬ 
rupted. But we may "break" the connection be¬ 
tween the timer signal and the interrupt line. In 
this case, the timer will not cause an interrupt, 
but the signal bit will still flash when the appro¬ 
priate time has come. 

We can see the plan in Figures 1 and 2. We 
will disconnect the timer from interrupt, and ser¬ 
vice it ourselves when if flashes. Easier done than 
said. Let's look at the machine language coding: 

033C A9 01 INTR LDA #$01 


Raster interrupt is now the only game in town, 
so we don't need to test for it. We must, of course, 
turn off the raster interrupt flag. 

0343 AO 06 LDY #$06 

Setup for top of screen. Next interrupt, line 92 
hex; new color, number 6. 


If it's really the top of screen, we can skip ahead. 
Otherwise, we change for mid-screen - line 1, 
new color, number 0: 

034A A2 01 LDX #$01 

034C A0 00 LDY #$00 

Now we're ready to do the job, wherever the 


034E 8E 12 DO MID STX- $D012 
0351 8C 21 DO STY $D021 

The job is done. Now let's see if the timer interrupt 
is calling for action: 


If we didn't skip, the timer wants attention. Call 


035B 4C 31 EA JMP $EA31 

If we did skip, the timer isn't needed. Quit with: 
035E 4C BC FE SKIP JMP $FEBC 
We must remember, of course, to: turn off 
the timer interrupt; set the IRQ vector to our new 
code; and turn on the raster interrupt. We'll do all 
that in BASIC. Speaking of which.... 

BASIC-ally Yours 

Here's the same program in BASIC. 

100 FOR J=828 TO 864:READ X 
110 T—T+X:POKE J,X 

130 IF TO4077 THEN STOP 
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200 DATA 169,1,141,25,208,162,146,160,6, 
173,18,208,16,4,162,1 
210 DATA 160,0,142,18,208,140,33,208,173 
,13,220 

220 DATA 41,1,240,3,76,49,234,76,188,254 

300 POKE 56333,127 

310 POKE 788,60:POKE 789,3 

320 POKE 53274,129 

Now we have a rock-solid color change at the 
appropriate screen point. No creeping, no jit-, 
tering, no hiccups. 

We've only touched upon the techniques of 
raster interrupt. A whole host of new possibilities 
open up with its use. 

But we've shown it can be done, and some of 
the techniques that can be used to do it. 

Copyright © 1983 Jim Butterfield. 

Figure 1: 

tinguish between the two live timing sources. It may 
also cause timing jitter. 
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Troubleshooting 
A Program 

John Blackf9rei;^^^i||foatures Editor 


Suppose you've typed a program into your computer 
from the pages of COMPUTE!, and it doesn't run. The 
following checklist should help you find the problem in 

a jiffy- 


There are two likely sources of trouble in a typed 
program: typing errors made as you enter the 
program into your computer or mistakes involving 
COMPUTEl's conventions - the symbols used to 
indicate special keystroke combinations. If you 
have successfully typed in programs from the 
magazine before, the problem is probably a typing 
error. But if this is your first try (or if you are 
working with a new computer which is unfamiliar 
to you), you may be having trouble with the listing 

Knowing How To Enter The Program 

First take a look at the articles published each 
month, “How To Type COMPUTEl's Programs," 
and "A Beginner's Guide To Typing In Programs.” 
As you'll see, finding a character or word enclosed 
in braces is either a function key - such as the 
"CLEAR" key - or a normal key pressed simul¬ 
taneously with a control or escape key. Don't type 
in either the letters of the word in braces, or the 
braces themselves. Instead, press the key or keys 
indicated by the words within braces. {CLEAR} 
means, press the CLR key. 

What about the possibility that the program 
in the magazine is incorrect? Each program we 
publish is tested carefully, and the versions for 
each different computer brand are checked sepa¬ 
rately. When we have a given version running 
smoothly, we LIST the program directly onto 
paper. This paper version is photocopied and 
then appears as is in the magazine. Because of 
this, there is very little chance of a typographical 
error in the magazine version - it is identical to 


the program that was pretested in the computer. 

Still, we have made mistakes. In almost every 
case, though, a program will run correctly as 
printed. If you continue to have problems after 
having followed these troubleshooting proce¬ 
dures, check the section of the magazine called 
CAPUTE! the next issue or two following the pro¬ 
gram in question. 

On the other hand, there is a good chance 
that a typing error crept in as you keyed the pro¬ 
gram listing into your computer. The result can 
be anything from a slightly quirky display (such 
as square trees) to no game at all - just a cryptic 
error message or even a lock-up. When a computer 
locks up, the keyboard and RESET keys have no 
effect. To regain control, you must turn off the 
computer. Everything you typed in is lost. To 
avoid this disaster, always SAVE your program 
before you try to RUN it. 

Finding The Source Of A Problem 

Often, you can trace a mistake by knowing how 
to interpret error messages. Some computers give 
you a statement such as "OUT OF DATA," while 
others give only an error number. If you get a 
number, look it up in your user's manual. The 
error statement or number is accompanied by a 
line number, which helps in locating the problem. 

First, LIST the line and make sure that it is 
exactly the same as the one in the magazine. If it 
isn't, make the required changes and try to RUN 
the program again. 

Sometimes, the actual error is not on the line 
named as the source of the problem. If a DATA 
entry is missing, the error is listed at the line con¬ 
taining the READ instructions. If a string is incor¬ 
rectly DIMensioned, the error will occur in the 
line that first calls for the variable, not in the line 
containing the DIM statement. 




UJE mflKE A GREAT CASE 
FOR VOUR COmPUTER. 

One size does not fit all. Our cases are designed for specific hardware 

. ..— “/hen you put your computer in our case, it fits hand-in-glove. 

safely inside the attache-style carrying c ' - - 


to be taken out again. To operate, simply remove the lid and connect the power. 

To store your computer, disconnect the power, enclose your disks, working papers, 
and manuals in the compartment provided, and attach the lid. It’s as easy as that. 

API01 Apple II with Single Drive.$109 

API02 Apple II with Two Disk Drives. 119 

API 03 Apple II 9-inch Monitors Two Drives. 129 

API04 Apple III. Two Drives & Silentype Printer. 139 

API 05 13" Blacks White Monitor with Accessories 99 

API06 AmdekColorl.il or III Monitor. 119 

FR152 Franklin Ace 1000 or 1200 with Two Drives. 119 

FR153 Franklin Ace 1000 or 1200 with Two Drives S 9” Monitor 
RS201 TRS-80 Model I Computer, Expansion Unit S Drives 

RS204 TRS-80 Model III. 

AT301 ATARI 400 or 800 Computers with Peripherals 

P401 Paper Tiger Printer (400/445/460). 

P402 Centronics 730/737 S Radio Shack Prii 
P403 Epson MX70 Oi... . 





sm 132 Printer ... 


. 109 


/ic 20) with One Drive. 

CM703 Commodore Model 64 with Two Drives. 

CM704 Commodore Model 64 with Dataset. 

NS010 North Star Advantage. 

• CC80 Matching Attache Case (5"). 

- Matching Attache Case (3"). 

Matching Accessories Case (5 Vf Diskettes. Paper, el 
5.25" Diskette Case (Holds 75 Diskettes) 


P407 Okidata Microline 83A or 84 Printer 5 

P408 C.ltoh Prowriter 2 Printer. J 

CALL TOLL FREE: (800) 848-7548 

Computer Case Company, 5650 Indian Mound Court, Columbus, Ohio 43213 (614) 868-9' 





























































B.L.&W. DUSTCOVERS 




Special Offer! Mi 

□ Payment Enclosed 


Mail To: B.L.&W., BOX 381076, GERMANTOWN. TN 38183 (800) 821-7709 or (901) 754-4465 


BUSMASTER” 



$7995 


Attractively Styled Housing • Six Slot 
Expansion • Switch Selectable • Fuse 
Protected • Reset Button • LED Power 
Indicator Each Slot • Cable Connection 
To Computer • U.L. Approved Materials 

BUSMASTER-II Same as BUSMASTER PLUS 

SOFTWARE ENABLED SLOTS (Allows $QQ95 
memory paging of up to 6x64K) ~ * 

MINIBUS 3-slot expansion card: fuse $0095 
protected, switch selectable 
DISTRIBUTORS INVITED 

Contact RANDOM ACCESS MARKETING 

P.O. Box 1561, Newport Beach, CA 92663 (714) 640-5119 
Manufacturer: HIGH TECH ENTERPRISES 
#3 Corporate Plaza, Ste. 202, Newport Beach, CA 92660 


New Commodore 64 Games! 

An introductory offer from 

Rownczd mcmewme 


HEAD ON 

A daring and 
dangerous 
death race. 



ATOMIC 

MAN 


SERPENTS 


ALIEN 

INVASION 2player , 

Snakes 
entangle 
each oth« 

4 game pack suggested list price $59.95 

NOW $29” 

To order: Mail address along with check or money order to: 

flDVM€D HHCHD€UIRR€ 

P.O. Box 845 
Thomasville, NC 27360 
(919) 431-3231 

te Ailow 2 weeks for delivery 































PROGRAMMING THE Tl 


C. Regena 

DATA, READ, And 
RESTORE Statements 


Let's look at DATA and READ - what do these 
statements do and how do you use them? Using 
DATA statements in a program can save memory 
and may be more efficient than using many equi¬ 
valent lines of code. However, a DATA statement 
can be more difficult to decode or understand 
because it can look like just a random group of 
numbers. 

DATA statements are used in conjunction 
with READ statements. Together they assign 
numbers or strings to variable names. 

100 READ N 

110 DATA 5 is equivalent to 100 N = 5 

The DATA-READ concept becomes efficient when 
you assign several values to a variable name for a 
particular procedure. Let's look at an example: 


100 READ A 



When the program comes to READ A, the 
computer looks for the first DATA statement and 
assigns the first value, 3, to the variable A. The 
program continues, then comes to the statement 
READ A again. The computer has already read 
the first number, so it assigns the very next 
number, 2, to A. The process continues. Each 
time a READ statement is encountered, the very 
next data item in the DATA list is read, whether it 
is in the same DATA statement or the next DATA 
statement. 

DATA Varieties 

DATA statements may be placed anywhere in the 
program. They are ignored until a READ state¬ 
ment is executed. A "marker" is remembered by 
the computer so it knows exactly which data item 
has most recently been READ - and therefore 
which item the next READ statement will act 
upon. 

A DATA statement may contain one item 
only or several items separated by commas. Data 
items may be numeric constants (numbers) or 


strings. Numbers may be positive or negative and 
may contain a decimal. Numbers may not be vari¬ 
able names and may not contain operators (such 
as 5/3). String variables do not need to be in quote 
marks unless there are leading spaces, trailing 
spaces, or embedded commas as part of the string. 
You may specify a null string by " ", or „ in a series. 
Example: 

300 DATA " ",JOHN,„JIM," " 

Line 300 contains six data items - null, JOHN, 
null, null, JIM, and null. 

You may combine numbers and strings in 
the same DATA statements, but you must be care¬ 
ful that the data items in order match the READ 
statements. If the READ statement specifies a 
numeric variable, a string will not be accepted. 
You must have at least as many data items as the 
READ statements will try to access (or you will 
get an OUT OF DATA error). If you happen to 
have extra data items, they will be ignored. 

A READ statement may specify one or several 
items. The items may be a combination of numeric 
and string variables. Keep in mind that READ 
statements only read the data and assign values 
to variables - later program lines would actually 
print, calculate, sort, or manipulate the data. 

Following are some examples: 

String Variables 

100 FOR C=1 TO 5 
110 READ A$ 

120 PRINT A$ 

130 NEXT C 

140 DATA ED,BILL,JOHN,JIM,KELLY 
150 END 

Subscripted Numeric Variables 

200 FOR 1=1 TO 4 

220 PRINT "A(“?I;“) = "7A(I) 

230 NEXT I 

240 DATA 32,-42,48,69,-73,89 
250 END 

Multiple Variables 

300 FOR 1=1 TO 3 




320 CALL HCHAR(A,B,C) 
330 NEXT I 

340 DATA 12,24,42,8,8 
350 DATA 35,20,15,38 


Program 1: Lowercase Letters 

100 CALL CLEAR 


To help conserve memory, a DATA statement 
can be up to four screen lines long (112 characters). 
You can edit and insert to make the line even 
longer. One exception is that if you have quite a 
few items separated by a lot of commas, the com¬ 
puter will accept only a little over three lines. 

Printing Lowercase As An Example 

The following program illustrates how DATA and 
READ statements are used to save memory in 
defining graphics characters. To specify each 
character number and definition in a separate 
CALL CHAR statement would require 26 state¬ 
ments. Using DATA and READ, four lines READ 
and define the graphics characters, and five data 
lines are used. 

Program 1 redefines the small capital letters 
in characters 97 through 122 to graphics characters 
which can print actual lowercase letters. Letters 
with ascenders or descenders will require two 
letters to be printed. The chart shows which small 
capital letter (release the alpha lock key to print 
these) represents which graphic character. Lines 
200-300 in the program illustrate how to print the 
lowercase letters. 




Small Capital Letters And The Graphics 



RESTOREing 

Now let's say you want to use a DATA statement 
to list some numbers. First you want to add the 
numbers, and then you want to multiply the num¬ 
bers. The list of numbers for both processes is the 
same. To save memory (and typing effort), the TI 
allows you to RESTORE data. The RESTORE state¬ 
ment indicates that for the very next READ state¬ 
ment the computer will go back to the first DATA 
item in the program. RESTORE resets that 
"marker" to zero. 

110 READ M,N 

120 PRINT M;“+";N;"=";M+N 



160 RESTORE 


180 READ A,B 
190 PRINT Af"*";l 


RUN this sample program to see how the data 
items are used, then RESTOREd, then used 
again. 



































































RESTORE can be very useful. TI BASIC also 
allows you to RESTORE to a certain line of data by 
specifying a line number. If you have a long pro¬ 
gram with lots of DATA statements, you can use 
a RESTORE n where n is a line number to make 
sure that each READ statement will read the cor¬ 
rect data starting with the specified line of data. 

This sample program illustrates the use of 
the RESTORE command. The DATA statements 
here contain duration factors and frequencies to 
be used in CALL SOUND statements. Ordinarily 
the first READ statement would read the first 
data items from the very first DATA statements. 
However, line 130 says to start reading the data in 
line 260 with the very next READ statement. Ten 
sounds are played; then we RESTORE 260 again 
so the ten sounds are repeated. Line 190 says 
RESTORE 240 so the data will start with line 240 
for the very next READ statement. 

Program 2: Sounds 


100 CALL CLEAR 
110 PRINT "SOUNDS" 



This "Southern States" program illustrates a 
variety of uses of DATA and READ statements. 
Keep in mind that the DATA statements can go 
anywhere in the program and are ignored until a 
READ statement is executed. 

Note: As you are typing in programs from 
listings, the most likely place for bugs (errors) is in 
DATA statements. Be sure you copy DATA state¬ 
ments carefully. Watch particularly the placement 
of commas. Do not accidentally put a comma at 
the end of a DATA statement. If your data list 
consists of graphics definitions, those rounded 
characters are zeros, not the letter O. If your pro¬ 
gram stops with a BAD VALUE message, you can 
PRINT some of the variable names to see if you 
can pinpoint which DATA statement may be 
causing an error. 

In any case. Southern States is an educa- 
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tional program that drajvs a map of the United 
States. One of the Southern States is outlined, 
and the user must type the name of the state. If 
the state is correct, the user must then type the 
name of the capital city. States are chosen in a 
random order. If you get the state and the capital 
right, that state will not appear again. However, 
if you miss an answer twice, the correct answer 
will be given and the state will appear again. 

The data in lines 270-310 defines graphics 
characters for the map. We're using small capital 
letters so they can be printed, a faster method of 
drawing than using CALL HCHAR or CALL 
VCHAR. Be sure to release the alpha lock key to 
type in lines 320 and 480-510. 

Line 330 (RESTORE 370) is not necessary the 
first time through the program because the data 
in line 370 would be the next data anyway. How¬ 
ever, the program branches back to line 330 to 
RESTORE data if you'd like to try a "new" quiz. 
Lines 340-390 read the names of the states and the 
capital cities as the S$ array and C$ array. 

Outlining States 

Lines 540-560 randomly choose one of the states 
that has not previously been chosen and iden¬ 
tified. The S$ value is set to " " (null) if the state is 
identified correctly. Depending on which state is 
chosen, certain data is RESTOREd (line 570 then 
lines 1500-2070). 

Each state's data contains first a number rep¬ 
resenting the number of graphics characters that 
need to be defined. This number is READ in line 
590 (READ N). Lines 600-630 then read the next 
data items to define the graphics characters. Line 
640 reads N, the number of graphics characters 
that need to be placed on the map, and then lines 
650-680 read the row coordinate, column coordi¬ 
nate, and character number from data to outline 
the state. To erase the state, line 1250 reads N, the 
number of characters needed to erase the state, 
and lines 1260-1290 read from the data the row 
coordinate, column coordinate, erasing graphic 
character, and number of repetitions. Most of the 
clearing is done with character 96, the plain yellow 
square, so repetitions can be used. 

Program 3 Explained 


110 Clear screen. 

120-170 Define colors for graphics. 

180-210 Print title screen. 

230-310 Define graphics characters for map. 

320 Define L$ for use in printing the map. 

330-390 Read names of states in S$ array and corresponding 
capital cities in C$ array. 

400-460 Print instruction screen and wait for user to press 
ENTER. 

470-510 Clear screen and print map of United States. 

530 Initialize T, which keeps track of errors. 







640-680 Outline state ( 


: graphics characters for particular state. 


ind "uh-oh" and return 
t for user to press ENTER. 



9 DATA F8FCFEFE7F3E,FFFFFFFFFEFCF8 
F,F0F8F8FCFCFEFEFF,008080C0C0E0E 
0F,F0E0C08,FCFCF8F8F0F0F0F 
5 DATA 8080C0C0E0E0F0F,0F1F3F7FFFF 
FFFFF,00000000030F3FFF,000000000 
0010307,E0E0E0F0F8FCFEFF,0000000 
00080C0E 

3 DATA 00E0F0FEFFFFFFFF. 

E0F8FE,E0E0E1E3FFFFFEFC 


f RESTORE : 


EXAS,AUSTIN,OKLAHOMA,OKLAH 
TY,ARKANSAS,LITTLE ROCK,LO 
IA,BATON ROUGE,TENNESSEE,NA 


1 CAROLINA,COLUMBIA 


J CALL CLEAR 


1500-1560 RESTORE data for Texas. 

1570-1620 RESTORE data for Oklahoma. 

1630-2060 RESTORE data for Arkansas, Louisiana, Tennessee, 
Mississippi, Alabama, Florida, Georgia, South 
Carolina, and North Carolina. 

If you prefer to save typing effort, you may 
receive a copy of Program 3 by sending $3, a blank 
cassette or diskette, and a stamped, self-addressed 
mailer to C. Regena, P.O. Box 1502, Cedar City, 
UT 84720. Be sure to specify "Southern States" 
for the TI-99/4A computer. 

Program 3: Southern States 


THE STATE" 

*TE IS CORRECT," 


PRINT :::"NAMES MUST BE SPELLED" 
::"CORRECTLY TO BE ACCEPTED."::: 
TAB(15) ; "PRESS < ENTER >"; 


3 CALL CLEAR 


J CALL COLOR(C 


SOUTHERN STATES 


> FFFFFFFFFFFFFFFF,3F 


F0F0F0F0F 

J DATA 0F0F070703030101,0101030307 6>: 

070F0F,0F0F0F0FFFFFFFFF,FFFFFFFF 6i 
7F1F0701,FF3F0F03,FFFFFFFFFFF0F0F 6* 


J CALL HCHARO 
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VIC And 64 
Escape Key 

Thomas i 


Whileprogramming, there are lots of ways to get trapped 
inside quotes and be unable to use the cursor controls. 
Until now, your only recourse was to hit RETURN 
and try the line again. With this handy utility, you can 
escape from "quote mode" traps by just hitting the 
pound sign key. The routine also serves as an example 
of machine language programming for those who are 
interested in trying their hand at it. 


How many times has this happened to you? You're 
sitting at your VIC-20 or Commodore 64, entering 
or editing a program, and through a series of key¬ 
strokes that you probably don't even remember, 
get into the following trap. When you push a cur¬ 
sor movement key, instead of the cursor actually 
moving, you get a reverse field symbol on the 
screen. Frustrating, isn't it? As you have probably 
learned, about the only way to get free of the trap 
is to hit RETURN to get out of the line, and then 
start over. 

Here's an easier way: a program that adds a 
valuable "escape" option to your computer. With 
this feature, the seldom used British pound sym¬ 
bol (£) becomes an escape key. When you are 
stuck in the "cursor trap" mentioned above, sim¬ 
ply push the key; you will be released from what's 
called the quote mode and will be free to move the 
cursor as desired. Before looking at the program, 
let's examine the problem in greater detail. 

Store Or Perform The Action 

Some of the computer's keys are able to perform 
two distinct jobs, depending on whether the com¬ 
puter is in the immediate mode or program mode. 
These keys include LEFT, RIGHT, UP, DOWN, 
REV, OFF, CLEAR, HOME, INSERT, DELETE, 
and all of the color selection keys. In the immediate 
mode, you push one of these keys and the action 
is performed immediately. For example, depress 
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the RIGHT key and the cursor moves one space 
to the right. 

But one of the truly impressive features of all 
Commodore computers is their ability to store or 
save the action implied by the key. For example, 
here is a one-line program: 

10 PRINT "{RIGHT} HELLO" 

The string contains the word "HELLO" preceded 
by a cursor-right. When you type this line into 
the computer, the cursor-right movement is not 
performed; instead it is stored in the string. The 
cursor-right will be performed only when the 
program is run. We are storing a cursor movement 
to be executed later in the program mode. To in¬ 
dicate that a cursor-right movement is stored in 
the string, the computer will leave a reverse field 
brace symbol inside the quotes. In fact, every one 
of the keys mentioned above has a reverse field 
character which stands for it when it's inside 
quotes. 

The trouble comes in when the computer 
thinks you're trying to store an action, but you 
want to perform it. There are a number of ways 
this can happen. One way is if you've typed in an 
odd number of quote marks while entering a line. 
Another way is pushing the insert key more times 
than you expected. 

Escape By Machine Language 

Having defined the problem, let's look at a pro¬ 
gram that will take care of it. Examine Program 1. 
This is the assembler listing of the VIC-20 "escape 
key" program. Since assemblers are now be¬ 
coming quite common for the VIC and 64, enter¬ 
prising users might wish to enter the source code 
in directly and assemble their own version. If 
you're an experimenter, you'll find that this is a 
great program to begin with. It's not too long, 
and yet not so short as to be a trivial exercise. 




And it has a practical use too. 

Examine Program 1 now. The first part shows 
the "equates" for the program. These equates 
give names or labels to the various internal ad¬ 
dresses that are used by the program. For example, 
NOKEYS stands for location $C6, and this location 
always contains the number of keystrokes stored 
in the keyboard buffer. IRQVEC stands for the 
IRQ vector stored in RAM (Random Access Mem¬ 
ory) . And so it goes for all of the labels. Each stands 
for a location, and usually the label suggests the 
meaning of the location in question. 

The IRQ Routine 

The escape key initialization occurs next. A new 
vector is stuffed into RAM, and this vector directs 
the computer to always jump to the start of the 
new IRQ routine. This routine occurs next in the 
listing. As this is the heart of the whole program, 
let's examine it in greater detail. 

The first thing that happens here is that all of 
the registers are saved tempo¬ 
rarily. Next, the last key de¬ 
pressed is examined. If it wasn't Program 
the British pound symbol (which 
is used for the escape key), then 
the registers are restored and 
the normal IRQ is finished. But 
if it is the desired key, then a 
zero is stored in three important 
locations. These are CMODE, 

REVERS, and NOINST. Stuffing 
a zero in CMODE turns off the 
quote mode, a zero in REVERS 
turns off the reverse screen mode, 
and a zero in NOINST nulls out 
the number of inserts pending. 

Turning off these three locations 
allows you to escape from all 
of the "offending" modes. 

Blanking The Pound 

Recall that a British pound sym¬ 
bol has been printed to the 
screen. A true escape key 
shouldn't print anything; it 
should simply "escape." So the 
next block of code deposits a 
blank on top of the British pound 
character and backs the cursor 
up one space. The net effect is 
that no residual character is 
printed. So a true escape key 
been implemented. 

Before going on to the rest 
of the normal IRQ routine (called 
IRQRTN in Program 1), the reg¬ 
isters are restored. We have kept 
the new routine transparent to 
the normal VIC-20 operating 


system. For the Commodore 64, IRQRTN is $EA31 
instead of $EABF. 

Since there are now countless memory pack¬ 
ages available for the VIC-20, some consideration 
must be given to finding a convenient location for 
the program. As mentioned, you might wish to 
assemble your own version. Most users, however, 
will want to use the BASIC loader in Program 2. 
This loader will put the program into the top of 
memory, wherever that might be. Thus, it works 
for all VIC-20's with any amount of extra memory 
(if any). For the Commodore 64, a minor change 
must be made to reflect the different value for 
IRQRTN, Line 230 should read: 

230 DATA168,104,170,104,76,49,234 

Make An Escape 

To prepare a copy of this program for use, follow 
these steps: 


1. Type in Program 2. If you have a Comi 


1: Disassembly Of VIC Version 


ER OF KEYS IN BUFFER. 
EN REVERSE FLAG. 
CURRENT CURSOR ROW. 

CURRENT CURSOR COLUMN. 
CURSOR MODE:0=DIRECT. 

LAST KEYSTROKE IN. 

NUMBER OF INSERTS PENDING. 
KEYBOARD BUFFER. 

NORMAL IRQ ROUTINE. 


X #<NEWIRQ ;£ 
Y #>NEWIRQ 


MOVEON PLA 


L REGISTERS. 


T BRITISH POUND S 


INALLY, PUT A CURSOR LEI 
N THE KEYBOARD BUFFER. 
RESTORE ALL REGISTERS. 


JMP IRQRTN ;FINISH NORMAL INTERRUPT. 









$40Can Make 
A Home Computer 
A Serious Computer 





If you own a 

VIC-20™ or Commodore 647 

someday you may consider getting 
a more sophisticated computer. 

That could cost you thousands of 
dollars. Or just $40 for PractiCalc 20. 
($50 for PractiCalc 64.) 

Forty dollars will buy a PractiCalc 
software program for your VIC-20 and 
suddenly your VIC will be able todo many 
tasks that have made Apple® and IBM® 
computers so popular. 

With PractiCalc 
and a VIC, you can devise 
budgets, and 
make business 
projections - 
instantly! 


See what PractiCalc can do for you. 

You can keep track of expenses, 
investments, and inventory. 

Maintain and instantly search* 

files. 


Alphabetize lists, and rearrange 
long rows of numbers - instantly. 

Even turn numbers into graphs.* 
PractiCalc makes it practical to 
play with numbers, in a 
way you never could 
with pencil and paper. 

Sit down at your VIC, 
put in PractiCalc, and 
tasks that would 
normally take hours, 
take minutes. 

PractiCalc. If yoi— 
tired of playing games, and want to get 
serious. 


COMPUTER SOFTWARE ASSOCIATES PRODUCTS CAN BE PURCHASED 
THROUGH OUR DEI LEERS OR ORDERED DIRECTLY BY CALLING 1-800-343-1078. 


PracuCilc 















dore 64, be sure to make the change to line 
230 mentioned above. 

2. Check for errors. 

3. Save the program first. 

4. Now try it out. Type RUN and hit RETURN. 

5. Almost instantly, the program will relocate 
to the top of memory and perform a self¬ 
initialization. You may leave the program in 
place for the duration of a programming ses¬ 
sion; it will not interfere with normal BASIC 
operation. 

Typing NEW will not affect the escape key pro¬ 
gram, but if you hit the RUN-STOP/RESTORE 
key combination, the program will be disabled. 
You can re-enable it quite easily by typing: 

SYS 256*PEEK(56) + PEEK(55) 

Since cassette operations affect the IRQ loop, you 
may wish to disable the escape option with a RUN- 
STOP/RESTORE before doing any loading or 
saving and re-enable it afterwards with the SYS 
256*PEEK(56) + PEEK(55). 

If you have the program in place, try it out. 
For example, type a quote mark. Now hit the 
RIGHT key a number of times. Do you see the 
reverse field brace? Now hit the British pound 
key. Then hit the RIGHT key once more. Notice 
that this time you actually move to the right. Think 
of the most outlandish combination of keystrokes 
that you can, then try the escape. 

Program 2: basic Loader 

100 T—256*PEEK(56)+PEEK(55)-55:GOSUB160 
110 POKE56, HI% : POKE55, LO 
120 FORA=TTOT+54:READD:POKEA,D:NEXT 
130 X=T:T=T+13:GOSUB160 s POKEX+2,LOlPOKEX 



160 HI% ! =T/256 :LO=T-HI%*256: RETURN 
170 DATA120,162,13,160,16,142,20,3 
180 DATA140,21,3,88,96,72,138,72 
190 DATA152,72,165,215,201,92,208,23 
200 DATA162,0,134,212,134,199,134,216 
210 DATA232,134,198,164,211,136,169,32 
220 DATA145,209,169,157,141,119,2,104 
230 DATA168,104,170,104,76,191,234 C 
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MW-302: VIC-20/64 


Parallel Printer Interface. 



MW-302- $119.95 

UNIVERSAL INPUT/OUTPUT BOARD 
FOR VIC-20/64 - NEW! 



MW-31 IV for VIC-20-$185 

MW-311C for CBM-64--$225 


Micro World Electronix, Inc. 

3333 S. Wadsworth Blvd *C105, Lakewood, CO S0227 

[303] 934-1973 or [303] 997-2671 































BUSIWRITER 

BUSIWRITER A Honey of a 

Why word processors? 

Word processors allow the user to quickly and easily create letters, 
memos, notes, reports, term papers, manuals, poetry and any other writ¬ 
ten information using the memory of the computer as a pencil and 
paper. The computer display or terminal acts as a window through 
which the user views the information as it is entered. The outstanding 
advantage of using BUSIWRITER is that it acts not only as a pencil and 
paper but as a perfect eraser and automatic typewriter. 




For Commodore CBM-64 

Commodore 1515,1525, Epson, C. Itoh, Qume, Diablo, NEC Spinwriter, Starwriter, 
Prowriter, Okidata, Microline, Gemini-10 
And many more printers 

BUSIWRITER The Queen Bee of Word Processors 


BUSIWRITER allows the user to quickly and easily make any number 
of alterations to the text. BUSIWRITER will instantly reformat your text 
and show you exactly and continuously how the final output will appear. 
BUSIWRITER has more functions than any other known microcomputer 
word processor. With BUSIWRITER assisting in the entry of text, provid¬ 
ing a 20 page memory and performing an enormous number of editing/ 
composing functions, the preparation of written data is far faster and 
outstandingly more accurate than if it were prepared by hand. 


BUSIWRITER With the Sting Removed from the Prices 


BUSIWRITER 64. 


.only $99.00 for the CBM 64 


BUSIWRITER AVAILABLE NOW FROM YOUR LOCAL DEALER 
(800) 227-9998 

FOR THE NAME OF YOUR NEAREST DEALER 

California, Canada, Alaska and Hawaii please call (415) 965-1735 


Skyles Electric Works 

231G South Whisman Road 
Mountain View, CA 94041 


i contact Supersoft, Winchester House, Harrow Wealdstone, England HA3 7SJ, Tel. 01 861 









Musical Atari 
Keyboard 

PauFM. Havey 


This program makes your Atari into a musical instru¬ 
ment. The sound of bells, piano, organ, etc. - it's all in 
your computer's keyboard. 


"Music Keyboard 3" makes the Atari typewriter 
keyboard a music keyboard. 

You can play the keyboard much like playing 
an organ. Strike a key, the note plays; release the 
key, the note stops. You can also change the decay 
of a note to sound like a piano, organ, or bells, 
and you can change registers to bass or treble 
with the SHIFT key. 

Features 

1. Variable decay of a note 

2. Preset attack and release 

3. Five octave range (Cl to C6) 

4. Two-tier keyboard 

5. Keyboard display on the screen 

6. Monotonic (one note at a time) 

7. Fast action 

When you run this program, a picture of the 
Atari keyboard appears on the screen. The keys 
that are outlined only are not usable as notes. The 
white and black keys represent the same keys on 
a keyboard instrument. 

Here's how to use the program: 

• Starting-up 

1. Insert the Atari BASIC cartridge. 

2. Load or type into RAM memory Music 
Keyboard. 

3. Type RUN, then press RETURN. 

4. When the prompt "INPUT DECAY (0-1)" 
appears in the lower left section of the screen, 
type in a decimal number between zero and 
one (example: 0.89) and then press the 
RETURN key. 

5. When the word "PLAY" appears, begin 
playing. 

• Changing the decay of a note after starting up: 

1. Press the space bar. 


2. Press the BREAK key. 

3. Type GOTO 1000, then press the RETURN 
key. 

4. When "INPUT DECAY (0-1)" appears, type 
in the decay value, then press RETURN. 

5. When the word "PLAY" appears, begin 
playing. 

• Changing registers 
1. Press the SHIFT key. 

Fast Keyboard Action 

The Serial Port Control register, SKCTL, changes 
whenever a key is pressed or released. By reading 
SKCTL and using the value it contains as an ex¬ 
pression in a GOTO statement, the program can 
decide what to do. SKCTL detects one of four 
possible keyboard conditions: the SHIFT and one 
of the character keys pressed together; the SHIFT 
key pressed by itself; a character key pressed by 
itself; or no key pressed at all. 

Here are a few tricks used to get fast keyboard 
action. First, the value in SKCTL is used in the 
GOTO statements to direct the flow of control. 
Second, placing the logic for note playing at the 
beginning of the program increases speed since a 
GOTO target is found by searching a program 
from beginning to end. Third, removing the REM 
statements at the beginning leaves fewer state¬ 
ments to search to find the referenced line number. 
Fourth, using GRAPHICS 2 increases speed over 
GRAPHICS 0 by 20 percent. The display exists for 
reasons other than just showing the keyboard. 
Fifth, converting audio frequency codes to notes 
on the keyboard by table look-up avoids time- 
consuming computation. The keyboard code is 
used as an index to an array containing the fre¬ 
quency for that note. Sixth, POKEs are used in¬ 
stead of the SOUND statement. 

Program Description 

This program has three major sections. Lines 243- 
256 will cause a note to play when you press a 
key. Table 3 lists the SKCTL keyboard condition 
codes. Lines 400-1530 set up the display, the re- 
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defined characters, and the variables for the play 
section. Lines 1560-4000 contain data for the note 
and character tables. 

Line 240 directs the program to the setup 
section. After setup is complete, control goes 
to the play section. 

Lines 243-244 contain the action the program 
takes with both the SHIFT and a character key 
pressed. A note decays while the register changes. 
The register cannot change again until the SHIFT 
key is released. Lines 247-248 are accessed only 
if the SHIFT key alone is pressed. A register 
change - from bass to treble or from treble to 
bass - occurs, but no decay or release action is 
necessary. 

Lines 251-253 direct the program to play a 
note if a character key only is pressed. The note 
does not change unless it is different from the last 
note played. The register changes from bass to 
treble or vice versa when a key on the keyboard is 
first pressed. The note decays as long as the same 
key is held down. Lines 255-256 take effect if no 
key is pressed. The sound stops and remains that 
way until another key is pressed. 

The setup logic begins on line 520. Program 
variables are initialized on lines 520-530. Lines 
540-570 select the screen mode and colors and 
print the title to the screen. Lines 600-630 transfer 
the treble and bass register notes into an array. 

The table on page 58 of the Atari BASIC Refer¬ 
ence Manual gives the hardware frequency codes 
with musical note values for the treble register. 
The bass register table, not found in any Atari 
manual, is in Table 4 of this article. 

Lines 710-750 read the redefined character set 
data and place the entire character set in a new 
location. Lines 760-820 display the redefined 
characters as a picture of the keyboard. Table 5 
gives the color factor to add to the character code. 
Lines 1000-1020 prompt the user to input the decay 
value and play. Lines 1520-1530 wait until no key 
is pressed to start the play logic. 


Musical Atari Keyboard 

240 GOTO 500 

243 POKE 53761,T+L:L=L*DECAY»(L>0.5) 

244 S=4:GOTO PEEK(53775) 

247 POKE 53761,T+L:L=L*0.5*(L>0.5):I 
F S<3 THEN R=R=0 
246 S=3:GOTO PEEK(53775) 

EN P=NP:POKE 53768,R:REG=64*R:L= 
LOUD:POKE 53760,P(REG+P) 

252 POKE 53761,T+L:L=L*DECAY*<L>0.5> 

253 S=2:GOTO PEEK(53775) 

255 POKE 53761,T+L:L=L*0.5»(L>0. 5) 

256 S=1:GOTO PEEK(53775) 

400 REM **» SET-UP SECTION *** 



500 REM REDEF. CHARS. - DISPLAY 
520 L0UD=15:T=160:SOUND 0,0,0,0 

540 GRAPHICS 2:SETCOLOR 1,0,12 
550 SETCOLOR 2,15,6:SETCOLOR 3,0,4 
560 SETCOLOR 4,15,6:SETCOLOR 0,0,0 
570 ? #6;" MUSIC KEYBOARD 2.0":POKE 













Table 4: 

Bass Register Pitch Codes 
(TONE = 10 AUDCTL = 1) 

Pitch AUPFX_Pitch AUDFX 


C4 


(Bb3 or A#3) 
(Ab3orG#3) 
(Gb3orF#3) 

(Eb3 or D#3) 
D3 

(Db3 or C#3) 
C3 
B2 

(Bb2 or A#2) 


(Ab2 or G#2) 
(Gb2 or F#2) 


(Abl orG#l) 
G1 

(Gbl or F#l) 


Table 5: Character Color Codes 


Black 32 

White 0 

Gray 128 

*Background 

Notes: 

1. Redefined characters have Atari internal code 
numbers one to eleven inclusive. 

2. Adding color code above to internal code dis¬ 
plays characters in that color. 

3. For more information, see the Atari BASIC 
Reference Manual, chapter nine. 






0:? "{CLEAR}INPUT DECA 


1 TREBLE REGISTER E 

















































3-D Color 
Computer Patterns 

George Trepal 


Watching your computer trace harmonic visual figures 
and then rotating the completed patterns can be a most 
pleasant experience. Use these two programs to plot 
points, at different speeds, for your patterns. 


The computer is capable of turning out interesting 
and complex Lissajous patterns. Imagine the pat¬ 
terns as being shadows cast by a three-dimensional 
wire frame on a turntable which can be rotated 
full circle, 360 degrees. The computer can do this 
rotation. 

Note that the illustrations use small numbers 
to produce the patterns. Big numbers are much 
more interesting. One of my favorites is the com¬ 
bination 22 and 21. Numbers higher than 30 exceed 
the screen resolution and a blob results. 

Both programs here use POKE 65495,0. In 
most Color Computers this POKE speeds up the 
machine so that it draws faster. Unfortunately, it 
throws off several important functions such as 
the ability to make sounds, load or save tapes, or 
use a printer. To get rid of the speed POKE, you 
can either press the reset button or POKE 
65494,0. 

Program 1 lets you rotate the pattern and is 


rather slow. Program 2 is much faster, but it 
doesn't allow the pattern to be rotated. Program 2 
looks up in a table the place to draw the next line 
to; this is much faster than calculating each new 
position, as Program 1 does. 

Program Calculations 

Here's a technical description of Program 1. You 
can skip the math and just enjoy the art, unless 
you're curious. 

Lissajous patterns are formed by a sine wave 
of frequency X modulating a sine wave of fre¬ 
quency Y. The result has to be plotted on circular 
coordinates. Rotation of a pattern is done by 
altering the phase of one wave in relation to the 
other. 

Lines 20 through 90 give the speed POKE, 
clear variables, and take in parameters. 

Lines 100 to 150 are constants used in the 
calculations. The reason for letting variables rep¬ 
resent the constants is speed. The computer has 
to change a number into its floating point repre¬ 
sentation before it can work with it. The process 
is highly complex and takes time. Since BASIC is 
interpreted rather than compiled, every time the 
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program sees a number it has to change it over. 
Variables are stored in floating point form, how¬ 
ever, and simply have to be looked up in memory. 
This is much faster. 

The delay loop in line 160 can be left out with¬ 
out hurting the program. Some people who have 
played with the program have been startled by 
the sudden switch from text to graphic screen 
and have managed to hit interesting things on the 
keyboard. The delay gives fingers a fraction of a 
second to move to a less dangerous position. 

Lines 170 to 220 are just setting up parameters. 
The program will calculate a point and draw a 
line to it and then repeat the process. Lines 210 
and 220 calculate an arbitrary line length. The 
idea is to achieve a compromise between a slowly 
drawn, beautiful pattern and a quickly drawn, 
jagged pattern. 

Lines 230 and 240 produce the sine calcula¬ 
tions. The multiplier expands the pattern to fill 
the screen. The number added to the end shifts 
the pattern so that the center of the pattern is also 
the center of the screen. 

Lines 250 and 260 help to make things look a 
little better. Leave them out of the program to see 
why. Line 280 checks to see if you've pressed the 
space bar and want a new pattern. 

Program 1: Plotting Points Calculated 

20 P0KE65495,0C3 SPACESJ’THIS POKE D 
OUBLES THE SPEED OF MOST COLOR CO 
MPUTERS 

30 CLS:PRINT:PRINT 

40 PRINT" PRESS THE SPACE BAR TO ST 



Program 2: Plotting Points Read From Table 

30 POKE 65495,013 SPACESJ’THIS POKE 
DOUBLES THE SPEED OF MOST COLOR C 


UBH<5 SPACESJUSING THIS PROGRAM P 
USH THE 15 SPACES > RESET BUTTON ON 
THE BACK OFC 5 SPACESJTHE COMPUTER 

CLOAD UNLESS YOU D0t5 SPACESJTHIS 
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VIC-20/64 Translations: 

Reading The Keyboard 

Nathan QNun, - 


When I bought my Commodore 64 computer, I 
recognized that there was very little software writ¬ 
ten expressly for my machine. But, because of its 
similarity to the VIC-20,1 thought it would be 
possible to modify most - if not all - VIC programs 
with minimal effort to run on my computer, too. 

A considerable number of locations used by 
the machines for interna!workings are identical 
in both VIC and 64 memory maps, especially the 
first several hundred locations up through 831. 

The cassette buffers are given to location 1019, 
but some of the 64 sprites use memory from 832 
to 1022, so this area is not directly compatible in 

Also, even though the addresses are different, 
a number of locations seem to be used for the 
same purpose (excluding the screen and sound 
processing logic, of course). I recognized that the 
contents of many of these locations would be dif¬ 
ferent, especially those holding addresses of mem¬ 
ory limits and the like, but I expected that all of 
the differences would be straightforward, easily 
understood changes. 

While a great many changes are straightfor¬ 
ward, I quickly found a few locations that were 
not working in the same manner in both machines. 
Since it will be some time before I walk through 
enough VIC programs to hit all of the differences 
that exist, I decided to acquaint some 64 owners 
immediately with some of the pitfalls I discovered 
in my VIC to 64 translations. At least this will 
make you more cautious and keep you from won¬ 
dering if your machines are broken when you get 
some weird results. 

Hidden Keyboard Differences 

In COMPUTE!'s First Book Of VIC, the article 
"Extended Input Devices: Paddles And The 
Keyboard," by Mike Bassman and Salomon Leder- 
man, explains how the paddle works and how 
the VIC-20 handles its keyboard input logic, using 
the "polled" keyboard concept. This was one of 
my first translation attempts, since it seemed so 
easy to translate to the 64. After all, the keyboards 


of both machines are identical, right? 

Wrong! 

After a little work, I altered the VIC programs 
2 and 3 in the article to programs 1 and 2 here. 

The differences are minor- Iusedacommainstead 
of a semicolon in the key code PRINT statement, 
for example. The hardest part was handling loca¬ 
tion 808 to turn off the RUN/STOP key's BASIC 
program BREAK effect. In the VIC, the normal 
value of this location is 112, but in the 64 it has a 
normal value of 237. 

Changing this location to other values caused 
some problems until I found that setting it to zero 
seemed to work. I have no idea if this affects some 
other portion of the operating system, so the use 
of zero may not be universally correct. 

Once it was written, I fully expected the 
keyboard matrix table of my 64 to be identical to 
that of the VIC. When I ran the program, however, 
I got considerably different results. I double- 
checked my program several times and could not 
find any mistakes, so I decided to compile my 
own 64 keyboard matrix table and see how things 
differed. Table 1 is the result. Note that the entire 
table is a transposition (axes swapped) of the VIC 
matrix with a couple of rows and columns rear¬ 
ranged. Apparently, the 64 designers wanted the 
RUN/STOP key to be in the upper left corner 
(127,127), so they made extensive changes for this 
and perhaps other reasons. 

Once I realized that the polling values were 
different, I rewrote a VIC program which PEEKed 
into memory to read the character codes where 
they are stored. The program reads the character 
codes in location 197 as set by the BASIC program 
after BASIC has done its own polling of the 
keyboard. This location has the same meaning in 
the 64 as it has in the VIC. 

At line 5 I added a POKE 808,0 to disable the 
STOP key's BREAK effect and thus allow me 
to find out its character code. As with the VIC, 
the SHIFT keys, the CTRL key, the COMMO¬ 
DORE key, and the RESTORE key have no effect 
on the value in location 197 - which is 64 when no 
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key is being pressed. My version of the PEEK 
program has the values running continuously up 
the TV screen in four columns, just like the version 
of the polling program that I used. 

64’s Hierarchy Of Keys 

As suspected, the character codes were scrambled 
when compared to the VIC codes - in only a couple 
of cases were they the same. Table 2 shows the 
Commodore 64 character codes for each key. There 
is also a definite hierarchy in the keys so that if 
two or more are held down simultaneously, one 
of them always takes precedence unless an even 
higher-precedence key is added to the group. The 
character code number seems to be the order of 
precedence, with the higher number overriding 
any lower character number if both are pressed - 
RUN/STOP has the highest precedence in Table 2 
and overrides any other key or keys. 

If RUN/STOP is held down after another key 
has already been pressed and held, it won't cause 
a BREAK in those cases where the row select code 
in Table 1 is the same for the two keys when loca¬ 
tion 808 is returned to the normal 237 value. Ap¬ 
parently, the RUN/STOP key has been "fail-safed" 
to keep it from BREAKing a program unless the 
RUN/STOP key, and only the RUN/STOP key, is 
hit. 

The above examples should make it very 
obvious that there are a number of subtle, but still 
critical, differences between the Commodore 64 
and the VIC-20. Who would have imagined that 
they would change the keyboard logic when both 
machines use identical keyboards? Caution is 
definitely in order. 

I now know of the following categories of 
VIC-20/Commodore 64 differences: 


1. Screen and sound chip locations and related 
logic. 

2. Sprite data storage and logic (VIC-20 has 
no sprites). 

3. RAM areas (location, not contents - Com¬ 
modore 64 is much larger here). 

4. ROM operating system logic areas (VIC-20 
has a larger operating system). 

5. Contents of lower memory BASIC/operating 
system working areas (limit-of-memory reg¬ 
isters and so forth in locations 0-831), though 
most will be straightforward changes from 
the VIC-20 contents (perhaps there are more 
differences such as the one in location 808). 

6. LOAD/SAVE procedures (VIC-20 is con¬ 
siderably less complex, but this is one of the 
things that requires its extensive operating 
system memory area). 

7. Keyboard polling values (Table 1) and 
character codes (Table 2). 

8. Extra built-in joystick p'ort and extra TV RF 
output in addition to the NTSC color monitor 


How To Read Table 1: 

The key code value is set into location 56321 when 
the indicated key is hit and that key's row has been 
previously selected by POKEing row select code 
into location 56320; otherwise, the value of 255 
will be in location 56321. The indicated value will 
remain set as long as the key remains depressed. 
(Commodore 64 keyboard hardware does the set¬ 
ting automatically.) If more than one key in a row 
is hit simultaneously, the key codes are ORed 
together. 
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output port (lots of tricks probably possible 
with these!) 

Other hidden differences are probably 


waiting for the unwitting Commodore 64 owner 
to stumble over when he wants to use a VIC pro¬ 
gram. I hope that anyone who does find some 
will write in to tell the rest of us. 


Table 2: 

Character Codes Returned From Location 197 For Each Key Entry (Commodore 64) 


CRSRDN 

CRSRRT 

SPACE 


' = SHIFT KEY (either) = CTRL KEY=COMMODORE KE Y = RESTORE KEY = 64 as CHAR CODE 


Program 1: 

Machine Language Program To Capture Key 
Code Before Changed By BASIC. (Incorporated 
as a BASIC loader in Program 2.) 


Note: Higher values of the CHAR CODE override lower 
values if two or more keys are pressed simultaneously. If 
any key in the 127 row of Table 1 is held down prior to 
pressing the RUN/STOP key, location 197 will change to 
63 but a BREAK will not occur. 


Note: Change 127 ($7F) to any of the other legal row 
select values, depending on the key used. See Table 1. 
The routine is needed because the BASIC interpreter is 
continually changing the row select value to 127 to 
check for a STOP input from the keyboard at the end of 
every command, so we must grab the key code for our 
key by setting the desired row select and saving our key 
code for that row before the end of any BASIC instruc¬ 
tion. It is used in Program 2, and it can be used in any 
program you create to check for keyboard inputs. 



Program 2: 

Disable RUN/STOP Key And PRINT Key Code Of 
Pressed Key(s) 

Note: You will probably want to delete REM statements 
when you key this in. Also, putting 0 in location 808 works, 
but this is an important location and a value of 0 might not 
be correct for every program. 




















MACHINE LANGUAGE _ 

Jim Butterfield, Associate Editor 

A Bagel Break 


Let's walk through an example of programming a 
complete game, including machine language. 
We'll make it a simple one: "Bagels," a guessing 
game that has appeared under other names, in¬ 
cluding the commercially packaged game. Master 

■We'll make this one simple, with few frills. 
We could do it entirely in BASIC, of course; we're 
using machine language for the practice and for 
the thrill of seeing the answers come up instantly. 
You can judge for yourself whether or not machine 
language handles the job more efficiently. 

Ground Rules 

We will assume that BASIC will generate the ran¬ 
dom codes. Yes, you can generate pseudo-random 
numbers in machine language, too, but we'll shor¬ 
ten the job with BASIC. Once we're into a game, 
we'll stay entirely in machine language. 

The program is written to work on all Com¬ 
modore machines up to and including the VIC 
and 64. This means that we need to be careful 
about memory, since different machines have 
differently arranged memories. We'll avoid this 
problem by using the cassette buffer area that is 
located in the same area in all these machines. 
And of course, we'll use the built-in Kernal 
routines that work on all Commodore units: FFD2 
to print, FFE4 to get a character. 

Planning 

We'll need the following work areas: 

• A counter which keeps track of the number 
of guesses (let's put this at $0240 hexadecimal); 

• A counter which says how many "exact" 
matches have been found on this guess (let's use 
$0241); 

• A counter which says how many "inexact" 
matches have been found (use $0242); 

• A counter to keep track of the number of 
/characters typed by the player (we'll use $0243); 

• A place to keep the mystery code (four lo¬ 
cations from $0244 to $0247 hex); 

• A place to put a copy of the mystery code 
(from $0248 to $204B); 

• A place for the user's guess (from $024C to 
$024F). 

Why do we make a copy of the mystery code? 
Because we will destroy parts of this copy as we 


test for matches. That way, we will nevejr count 
the same item twice as a match. 

Writing The Program 

We lay out a blank piece of paper and try to write 
the logic. We assume that the BASIC program has 
placed the mystery code (alphabetic characters 
from A to F) into hex addresses 0244 to 0?47 before 
it calls upon our program to play the game. Here 
we go: we'll write a "main routine" first. Although 
we plan to put it into the cassette buffer (starting 
at hex 033C), we don't need to write in the ad¬ 
dresses - yet. 

START LDA #$00 

We set our "number of guesses" to zero for 
starting. Now, on to the next guess: 

GUESS INC $0240 
LDA $0240 

Our guess-number is set one higher, and we bring 
it into the A register. 

CMP #$0A 
BEQ QUIT 

If we've had nine guesses, we quit Here and 
let BASIC take over. By the way, we donft know 
exactly where to branch ahead, so we give the 
branch location a name rather than an address. 
We'll fill this in soon. In the meantime, i( we don't 
branch, it's time to play: 

JSR PLAY 

This subroutine will do the whole job of re¬ 
ceiving one guess from the user and accounting 
for it. If the user guesses perfectly, the Z flag will 
be set. In any other case, we'll need to go back: 
BNE GUESS 

Again, we may not know the exact address 
to which we're looping back at the time we scribble 
down our first program outline. We'll fill it in 
later. Sometimes we do this by "hand," and some¬ 
times an assembler program will do it for us. A 
full-scale assembler will take the "labels" we have 
used - GUESS, QUIT, and PLAY - calculate their 
addresses, and make the substitution for us. If we 
have a smaller assembler, or are assembling by 
hand, we'll need to write in the addresses. We do 
this in two columns: 
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LDA #$00 
STA $0240 
INC $0240 
LDA $0240 
CMP #$0A 


The programmer will quickly learn to convert the Q394 SKIp D£X 
program into whatever form his development BPL COMPAR 

programs need. .... . . , 

We'll assume this translation (at least in part) We have logged any exact matches. Now w 
and continue with subroutine PlAY. First, we lo ° k *° rthe out-of-place matches. We may, 
must print the guess number. The binary number ^ to move through the two values, rem 
in the A register must be converted to ASCII, and benn § t0 skl P zeros ' 
printed, together with a following space: LDY #$00 


Again, if we see a zero (already counted) or 
no match, we skip the next bit and go to PASS. 
Otherwise, we've got a match; we count it and 
destroy the entry, as before: 


Here comes another loop, as we wait for each 
character to be input. We test each character to 
make sure that it's a letter from A to F: 

0366 fNLOOP JSR $FFE4 


BCS INLOOP 

We have a legal letter; echo it to the screen and 


Now we may print the two results, stored in 
$0241 and $0242. A loop will save a little time and 


We must also copy the "secret" code into a work 
area, so that we can destroy it as we test for 
matches: 


Now we may check for exact matches. X is 
conveniently at three, so we may count it down 
as we compare: 

0381 COMPAR LDA $0248,X 


03BC PLOOP 


JSR $FFD2 
INX 

CPX #$02 
BCC PLOOP 

Now a carriage return to end the line. Finally, 
we must check for a "correct" solution (exact 
matches = 4) so that the calling routine will know 
whether to quit or not: 

LDA #$0D 



• 7JZ. 




















Etch-Atari 

,' iR^Qpver x j- 


This brief revirw of Atari's GT1A graphics includes a 
joystick sketch program to draw on screen and examine 
the visual potential of this powerful computer. 


After months of rumors about a display chip that 
would "someday replace the present one" in the 
Atari 400 and 800 computers. Atari introduced 
the GTIA. 

CTIAAnd ANTIC 

Before taking a close look at the GTIA itself, let's 
review Atari's graphics and display system. There 
are two integrated circuits in the Atari which gen¬ 
erate the television display: the CTIA and the 
ANTIC. The CTIA contains the circuitry which 
actually displays the data according to the infor¬ 
mation given to it by the ANTIC, which is a 
microprocessor dedicated to interpreting the video 
instructions of the computer program. In other 
words, your program tells ANTIC what to display, 
and ANTIC tells CTIA how to display it on the 

CTIA offers 14 display modes. Njne of these 
modes are directly accessible from BASIC, the 
other five only from machine language. Of the 
nine BASIC modes, there are three character (text) 
modes and six graphics (plotted point) modes. 
GRAPHICS 8, the highest resolution graphics 
mode, is made up of 320 pixels (picture elements) 
horizontally and 192 pixels vertically. That is, a 
GRAPHICS 8 display is composed of 61,440 
plotted points (pixels), all restricted to one color 
and to one of two luminances. Each pixel is either 
on or off. 

Additional Graphics Modes With GTIA 

Early in 1982, Atari began replacing the CTIA in 
400 and 800 computers with the GTIA chip. The 
two perform the same tasks and are identical, 
except that the GTIA offers three additional 
graphics modes: BASIC modes GRAPHICS 9,10, 
and 11. 

All three new graphics modes have the same 
resolution: 80 pixels horizontally and 192 pixels 


vertically. The pixels are the same height, but 
four times as wide as pixels in GRAPHICS 8. 

GRAPHICS 9 allows each pixel to be displayed 
with any one of 16 luminances, while all pixels 
displayed are restricted to the same hue. 

GRAPHICS 11 allows each pixel to be dis¬ 
played with any one of 16 hues, while all pixels 
displayed are restricted to the same luminance. 

GRAPHICS 10 allows each pixel to be dis¬ 
played with any one of nine hue and luminance 
combinations. 

Using GRAPHICS 9 and 11 is similar to using 
GRAPHICS 3, 5, and 7. In GRAPHICS 9 the lumi¬ 
nance of each pixel displayed can be changed by 
specifying COLOR 0 through COLOR 15. Using 
SETCOLOR 4,H,0, where H is a number from 0 
to 15, the hue of all pixels plotted will be changed. 

In GRAPHICS 11, COLOR 0 through COLOR 
15 specify the hue of each pixel displayed, while 
SETCOLOR 4,0,L, with L being from 0 to 15, 
changes the luminance of all pixels plotted. 
GRAPHICS 10 requires POKEing values of hue 
and luminance directly into the nine color 
registers. 

Joystick Sketching 

Try the program "Etch-Atari," which enables you 
to draw on the screen using a joystick. When the 
program is run, a prompt asks you to select 
GRAPHICS 9 or 11 and a hue or luminance, re¬ 
spectively. Then a bar appears across the bottom 
of the screen showing the color you will be 
drawing with. To change color, press the SELECT 
key. If you hold it down, the bar will step through 
the colors. The OPTION key turns the bar off or 
on. If the bar is off and the SELECT key is pressed, 
the bar will be turned back on so you can see which 
color is.selected. To clear the screen and start over 
without returning to the menu, simply press 
START. 

The drawing point starts at the center of the 
screen. To reposition the point without drawing, 
press the trigger button while moving the joystick. 



New Releases 
For Atari 400/800/1200 


Home-Calc 


I 'Sports Records 
'Payment Schedules 
'Stock Portfolios 
'Expense Accounts 


Home-Calc Is a powerful, inexpensive spreadsheet for 
home and business calculations. You can enter 
numbers, labels, or fbmulas in each cell. Home-Calc 
allows you to add, subtract, multiply, divide, use the 
exponential guide, sum, and recalculate. The diskette 
version also features a replicate command. Maximum 
spreadsheet size is 510 cells far the 48k diskette ver¬ 
sion. (Disk version requires 24k memory; cassette 
requires 16k memory.) 



fast-playing 

ski it tor two players 
(requires joysticks). Control 
a hovercraft in a space con¬ 
tinuum trying desperately 
to avoid the deadly vapor 
trail. Dodge new stars and 
planets as they form around 
you. Watch out for alien 
influences which can use 
MINDCONTROL to take 
over your craft. For ages 5 - 
' " easytoleamandpiay 
- no adult supervision 
required. 





























A sample drawing for "Etch-Atari." 


This also allows you to trace over and erase points 
already drawn. 

If the joystick is not moved for more than 
nine minutes, the computer will go into the attract 
mode (the screen will start changing colors). As 
long as you are drawing, the attract mode will be 
defeated. 

If you run into the border, a thumping sound 
will be heard, letting you know that you cannot 
go any further in that direction. If you feel that 
the drawing speed is too slow, remove the sound 
statement at line 90. 

If you would like the program to start auto¬ 
matically after loading, save it with SAVE "C:" 
and reload it with RUN "G". If you choose CSAVE 
and CLOAD, line 1000 can be omitted. 

Etch-Atari 


10 GRAPHICS GlSETCOLOR 4,H,L 



70 IF PEEK(53279)=5 THEN GOSUB 600:R 


80 IF PEEK(53279)=3 THEN GOSUB 700:R 




415 RETURN 




PLOT 1,189:DRANTO 78,189:PL0T 1, 
190:DRAWTO 78,190:PLOT 1,191:DRA 



660 RETURN 




800 GRAPHICS 


? M <8 SPACESJpoint drawn(color o 
? "<8 SPACES>at bottom of screen 








COMPILE 
ATARI BASIC 
AND FLY! 


& 


With ABC’", Monarch’s | new BASIC 
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ENHANCE YOUR ATARI 810 
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Input Functions 
On The VIC 

l ,.'Jojin Gmg : 


The "dynamic keyboard" technique can solve many 
kinds of programming problems: it's a way to make a 
program change itself during execution. One use of 
dynamic keyboard is illustrated here with a program 
which lets you enter a function, while a program is 
RUNning. There’s also information on the DEF FN 
command itself. 


If you use the DEF FN instruction much in your 
programming, you may have wondered if you 
can make this instruction "user friendly" by en¬ 
tering the function into the program via an INPUT 
statement. The obvious way to do this would be 
to begin your program with: 

10 INPUT "PROMPT"; A$ 
and to follow this instruction with: 

20 DEF FNA(X) = A$. 

Unfortunately, this won't work. If you RUN 
the program, the computer prints PROMPT on 
the screen and waits for you to type in the string 
representing the function. Suppose you type in 
X * 2 + 7*X and then hit RETURN. The action of 
the computer is to fill the string variable A$ with 
the string you just typed in, namely, with X 4 2 + 
7*X. Then when the program execution continues 
with instruction 20, tile string X* 2 + 7*X is sub¬ 
stituted for A$ in the DEF FNA(X) = A$ statement. 
Right? Wrong. 

If you follow instruction 20 with: 

30 PRINT FNA(2) 
you will get a 

? TYPE MISMATCH 

ERROR IN 30 

Evidently, the computer has done nothing with 
the string you just typed in. It still thinks that 
FNA(X) is literally equal to the string variable 
name A$ rather than equal to the string represented 
by A$. 

A Way Out 

The only solution would seem to be to LIST in¬ 


struction 20 and alter the string after "DEF FNA = " 
by directly typing it in every time you want to 
change the function represented by FNA(X), and 
that's not very "user friendly." 

Fortunately, on the VIC, there is a way out: 
the "dynamic keyboard" feature. If you LIST an 
instruction, alter it from the keyboard, and then 
hit RETURN while the cursor is on the instruction 
line, the altered instruction is entered into mem¬ 
ory. The trick is to force your program to alter its 
own instructions by causing them to be printed to 
the screen and RETURNS to be forced over them. 
This makes it possible for the computer to simulate 
the INPUT of a function. 

The program at the end of this article shows 
how it works. The essential part of the program is 
contained in lines 10-40. Line 10 causes 
F(X) = ? 

to be printed on the screen and waits for the string 
representation of the function FNA(X) to be typed 
in. Line 20 prints 

60 DEF FNA(X) = "string" (represented by A$> 

GO TO 50 

invisibly (in white) beginning on the second line 
of the screen. Line 30 POKEs the keyboard buffer 
with "HOME" and "CURSOR DOWN." Line 40 
POKEs the keyboard buffer with two RETURNS, 
POKEs location 198 with the number of characters 
in the keyboard buffer (four), and then ENDs the 
program. When the program ENDs, it skips a line 
and prints "READY" (also in white) on the screen; 
then the RETURNS are executed. The execution 
continues at line 50, which skips down under the 
INPUT line and returns the character color to the 
normal blue. 

The purpose of the program is to find the 
area under the graph of the function FNA(X) from 
X=XI to X = X2 with N subdivisions (N should be 
an even number). As an example, RUN the pro¬ 
gram and type in 4/(1 + X * 2) after the prompt 
FIX) = ?. 

Then type in 0 and 1, respectively after the prompts 





It’s Time for 
TOTL SOFTWARE! 

for the VIC 20™ and COMMODORE 64™ 

WORD PROCESSING AND MAILING LIST & LABEL 

„°u, available with CHICKSPEED 


FAST PRINTING . LIGHTNING LOADS • SIMPLE COMMANDS 


TOTL.LABEL 2.6 + CS Commodore 64 
TOTL TIME MANAGER 2.1 VIC + 8K expansion $30.00 
TOTL TIME MANAGER 2.6 Commodore 64 $35.00 

time management, scheduling, reports 
RESEARCH ASSISTANT 2.0 VIC + 8K expansion $30.00 
RESEARCH ASSISTANT 2.0 Commodore 64 $35.00 

key word cross-reference research tool 
TOTL.BUSINESS 3.0 VIC + 16K expansion $85.00 

TOTL.BUSINESS 3.6 Commodore 64 $95.00 


Quality You Can Afford 



Call (415) 943-7877 















and type in 100 after N=?. 


Using DEF FN 

A function is a BASIC word that takes a 
number within parentheses, performs some 
operation on it, and gives you a result. For 
example, some common functions are 
INT(X), which removes the fractional part of 
a number, or ABS(X), which makes negative 
numbers positive. 

With the DEF FN command, you can 
create your own functions. Here's one way: 
to round X to the nearest cent you might 
type in: X = INT(X*100 + ,5)/100. 

If you want to round off in this way many 
times throughout a program, you could de¬ 
fine a function to do it for you. Just type: 10 
DEF FNROUND(X) = INT(X*100 + ,5)/100. 
Notice that you give it a name, just like you 
do with variables. 

You have just created a function, whose 
name is ROUND. You can use ROUND just 
like any other function. From now on, you 
can round numbers to the nearest cent with¬ 
out having to type in the whole equation. 

For example, if you type: 

PRINT FNROUND(7.3628) 
the result will be 7.36. Some other pos¬ 
sibilities are: 

PROFIT=FNROUND(GROSS) -FNROUND 
(OVERHEAD) 


PROFIT = FNROUND(GROSS-OVERHEAD) 
You cannot make functions that use 
strings (words), and you cannot type DEF 
FN directly like a PRINT; it must be inside a 
program. 

When using ROUND, any number be¬ 
tween the parentheses will be used as X in 
the equation INT(Xn00+ ,5)/100. 

If we now write: 

20 DEF FNTEST(B) = B*A 

B will be whatever number we put between 
parentheses, and A will have the same value 
it does everywhere else in the program. 

For example: 

PRINT FNTESTCS) 

will give 15, since FNTEST will multiply 
whatever is in the brackets by A. 


The result will be given by INTEGRAL = , and 
the answer is a good approximation to it . 

Input Functions 

2 REM:FINDS THE AREA!2 SPACES)UNDER THE 
GRAPH OF At2 SPACES)FUNCTION FROM XI T 
O X2WITH N SUBDIVISIONS. 

5 PRINT "1CLR)l3 SPACES)INPUT A FUNCTION " 
10 PRINT"(HOME)19 DOWN)":INPUT"F(X) = " ; A$ 

20 PRINT"{HOME 11 DOWN ){WHT) 60 DEFFNA(X)=" 

;A$:PRINT"GOTO 50” 

30 POKE 631,19:POKE 632,17 

40 FOR 1=633 TO 634:POKE 1,13:NEXT:POKE 

50 PRINT"l7 DOWNllBLU}" 



120 FOR 1=1 TO N-l STEP 2 
140 FOR 1=2 TO N-2 STEP 2 

160 S=D*(2*S+FNA(X1)+FNA(X2))/3 
170 PRINT"INTEGRAL 3 ":S 

175 POKE 36878,15:POKE 36876,170:FOR 1= 


1 TO 200:NEXT:POKE 36876,0 
180 PRINT 

190 PRINT"TO CONTINUE,HIT ANY13 SPACESjK 
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Apple 

Bytechanger 

Wally Hubbard , 


Did you think that there's no way to put RETURNS 
into REM statements? Or into PRINT statements? Or 
to put backspace characters into REM statements? 

This machine language search and replace program 
opens a universe of options like these. Use your imagi¬ 
nation after you type in the BASIC listing. This article 
also throws some light on how BASIC is stored in your 
computer. 


A machine language program can be stored in 
your Apple computer three ways: (1) by typing 
on the keyboard; (2) by loading it from cassette or 
disk; (3) by LOADing a BASIC program and 
having it POKE the machine language into place. 
It's the third method that we'll use here. 

When you RUN this program, it will ask you 
to provide information so that it can set itself up 
for the particular function you have in mind. Once 
you have done this, you can LOAD another BASIC 
program without affecting the machine language 
program. Then to change the new program, type 
& and press RETURN. The computer will jump to 
the machine language program, execute it, and 
return to BASIC. 

Search And Replace 

This program will search through your BASIC 
program until it finds a REM statement, then read 
the information between REM and the end of the 
line, and change any control-A's to carriage re¬ 
turns. When it reaches the end of the line (or a 
colon), it goes on to the next line and continues 
its search for REM statements until it reaches the 
end of the BASIC program. 

You can change it so that it will look for any 
other command, and change characters that follow 
on that line, until the end of the line or the colon 
is encountered. 


For example, say you want to make your 
REM statements easier to read by inserting car¬ 
riage returns. When you type the REM statement, 
type a control-A everywhere you want a carriage 
return. Then, when you're finished, use the & 
command to execute the machine language pro¬ 
gram. You'll see the results when you list your 
program. 

As another example, suppose your printer 
requires the Escape character to access special 
functions. It is possible to type your BASIC 
program with control-E's in place of the Escape 
character,, then later run the machine language 
program to make a switch. 

BASIC Tricks 

BASIC uses some space-saving tricks to store a 
program. For one, it converts commands into 
tokens. So REM is not stored as the ASCII codes 
for R, E, and M. Instead, the entire word is con¬ 
verted to the value $B2. (The $ indicates the value 
is in hexadecimal notation. $B2 is equivalent to 
178 in ordinary decimal notation.) 

Another trick is using the character that indi¬ 
cates the end of a program line. You would assume 
(because you hit RETURN to tell-the computer 
you have finished entering a line) that it would 
store the ASCII code for RETURN, $0D (13). But it 
doesn't. Instead, it stores $00 (0). 

A third trick is the conversion of all line num¬ 
bers to two bytes. A line number of 1 is stored as 
$01 00, and a line number of 256 is stored as $00 
01. The high-order (more significant) byte is in 
the second position. 

The machine language program puts this 
information to good use. Every time it encounters 
$00, it skips over the line number (and two more 
bytes which hold the location of the next line) to 
the beginning of the next command sequence. If 
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it finds a value of $B2, the token for REM, when it 
is looking for REM statements, it jumps to the 
subroutine that switches one character for 
another. If the subroutine encounters a $00, or 
the ASCII token for it ends and the program 
starts looking for the next REM statement. 

Here's a list of some tokens and ASCII values 
of interest. You can find a list of ASCII codes used 
by Applesoft on pages 138 and 139 of the Applesoft 
BASIC Programming Manual. The tokens for the 
commands can be found on page 121. 


Locations $F9 and $FA (249 and 250) are nor¬ 
mally unused by BASIC, DOS, or the monitor, 
but are used by Switch to keep track of its current 
point in the BASIC program it is changing. 

Switch gets its information for the beginning 
and end locations of the program from $67 and 
$68 (103 and 104) and $AF and $B0 (175 and 176), 
respectively. 

The & vector must be set to $300 (768). This is 
done by Loader. 

Bytechanger 


23 35 # (ASCII) 

01 1 (Control-A) (ASCII) 

0D 13 (RETURN) (ASCII) 

You should know that DOS commands in a 
BASIC program are not tokenized. In 
10 PRINT CHR$(4);"PR# 1" 

PR# is stored as the ASCII equivalents for P, R, 
and #. Take this into consideration when setting 
up the machine language program. The token to 
search for in such a situation is $23, the ASCII 
code for#. 

Changing Switch Without Loader 

Let's call the BASIC program listed with this article 
Loader and the machine language program that it 
produces Switch. Once you have run Loader, you 
can change Switch, without rerunning Loader, 
using POKE commands. 

To change the command token, use POKE 
796, (new token). A 

To change the byte to be replaced, use POKE 
815, (new byte). 

To change the replacement, use POKE 821, 
(new byte). 

Here's an example. If you want to change all 
of the control-B's in all of your PRINT statements 
to control-G's (bell ringers), you must first know 
that the token for PRINT is 186, that the ASCII 
byte for control-B is 2, and that the ASCII byte for 
the bell character is 7. Then enter: 


SWITCH LOADER 

20 HOME : REM CLEAR SCREEN 
30 PRINT “THIS UTILITY WILL ALLOW YOU 
TO MAKE” 

40 PRINT "GLOBAL CHANGES IN YOUR PROGR 
AM. IT IS” 

50 PRINT "SET UP TO CHANGE ALL CTRL-A’ 
S IN REM " 

60 PRINT "STATEMENTS TO RETURNS.” 

RESTORE : GOSUB 320! REM POKESWITCH 

PRINT i INPUT "WOULD YOU LIKE TO CH 


"iA* 


The equivalent monitor command line is 

(The N allows you to put more than one command 
on a line.) Then enter & to make the change (or 
300G in machine language). 

Some Quick Facts About The Program 

The machine language program can be placed 
anywhere in memory. Normally it resides at $300- 
$350 (768 to 848). 


□ GRAB CARRIAGE 


RETURNS 

PRINT "TO THIS CHARACTER: ";: G1 
B*: PRINT B* 

PRINT "IN ALL" 

PRINT " 1 REM" 

PRINT " 2 PRINT" 

PRINT " 3 INPUT" 

PRINT " 4 IN# <NO DOS)" 

PRINT " 5 PR# (NO DOS)" 

PRINT " 6 # (DOS IN USE)" 

PRINT "STATEMENTS. CHOOSE # "; 
C*: PRINT C* 

- 2 THEN POKE 796 


POKE 7 


250 IF VAL 


C*) = 5 THEN POKE 7 


(A*): POKE 821, f 
(B*>: REM POKE ASCII 
VALUES INTO SWITCH 
POKE 1013,76: POKE 1014,0: POKE 
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Mixing Graphics 
Modes On The 64 

jSlj^fcJon Leemon * 


It's possible to have several different graphics modes 
simultaneously on the 64 screen. Program 1 shows you 
how to divide the display into three zones: high reso¬ 
lution, regular text, and multicolor bitmap mode. 
Program 2 uses the same utility program, but creates 
entirely different effects. The screen displays all three 
text modes: regular, extended background color, and 
multicolor. 

This graphics technique provides you with signifi¬ 
cant control over what appears on your screen. For 
example, you can switch modes with simple POKEs. 
Although there's plenty of technical information here 
for advanced programmers, the author has provided 
instructions and example programs which beginners 
can follow. Everyone can take advantage of these 
important techniques. 


The Commodore 64 Programmer's Reference Guide 
hints that more than one graphics mode may be 
displayed on the screen at once. When it comes 
time to explain how it can be done, however, the 
Guide states only that you must set a raster inter¬ 
rupt for the screen line where you want a different 
type of display to start, set the VIC-II chip for the 
new mode during that interrupt, and then set up 
another interrupt to change the mode back a little 
farther down the display. This explanation might 
be clear to advanced machine language program¬ 
mers, but it leaves a lot of others in the dark. 

In this tutorial, we'll look at some examples 
of raster interrupts that can be easily used by 
BASIC programmers to create split-screen displays 
and other effects. We'll also discuss, in more de¬ 
tail, how machine language programmers can use 
the raster interrupt capability. 


The Interrupt 

The most obvious place to start our discussion is 
by explaining what an interrupt is. An interrupt 
is a signal given to the microprocessor (the 
“brains" of the computer) that tells it to stop 
executing its machine language program (for ex¬ 
ample, BASIC itself is a machine language pro¬ 
gram) and to work on another program for a short 
time, perhaps only a fraction of a second. After 
finishing the interrupt program, the computer 
goes back to executing the main program, just as 
if there had never been a detour. 

There are several ways to cause such an in¬ 
terrupt on the 64. Pressing the RESTORE key 
causes an interrupt, and if the STOP key is also 
pressed, the interrupt routine clears the screen 
and restores the computer to its normal state. 
There are internal timers on the CIA Input/Output 
chips that can each generate interrupts. One of 
these timers is set by the operating system to in¬ 
terrupt every sixtieth of a second, and the interrupt 
routine that is called is used to check the keyboard 
and to update the jiffy clock which is used by TI 
and TI$. In addition, the VIC-II chip can also in¬ 
terrupt normal program execution when one of a 
number of events related to the graphics display 
occurs. One of these is called a raster interrupt. 

On a normal TV display, a beam of electrons 
(raster) scans the screen, starting in the top left- 
hand corner and moving in a straight line to the 
right, lighting up appropriate parts of the screen 
line on the way. When it comes to the right edge, 
the beam moves down a line and starts again from 
the left. There are 263 such lines that are scanned 
by the 64 display, 200 of which form the visible 
screen area. This scan updates the complete screen 
display 60 times every second. 
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The VIC-II chip has memory registers that 
keep track of the line that the raster is scanning at 
any given moment. Since the line number can be 
greater than 255, one register is not enough to do 
the job. Therefore, the part of the number that is 
less than 256 is kept in location 53266 ($D012 hex), 
and if bit 7 of location 53265 ($D011) is set to 1, 

256 is added to that number to arrive at the correct 
scan line. Of course, since these numbers change 
15,780 times per second, a BASIC program ex¬ 
ecutes far too slowly to read the registers and take 
effective action based on their contents. Only a 
machine language program has the speed to 
accomplish something with a particular raster 
scan line, and even it may not be quick enough 
to change the display without some slight, but 
visible, disruption. 

The raster registers have two functions. When 
read, they tell what line is presently being 
scanned. But when written to, they designate a 
particular scan line as the place where a raster 
interrupt will occur. If the raster interrupt is 
enabled, the interrupt program will be executed 
at the exact moment that the raster beam reaches 
that line. This allows the user to reset any of the 
VIC-II registers at any point in the display and 
thus change character sets, background color, 
or graphics mode for only a part of the screen 
display. 

Setting up a raster interrupt program is ad¬ 
mittedly not a job for a beginning programmer, 
but with the following step-by-step explanation, 
most machine language programmers should be 
able to write such a routine. Those with no machine 
language experience should read the explanation 
in order to get a general idea of what is taking 
place. Afterwards, we'll see how to use the ex¬ 
ample interrupt routine even if you don't know 
anything about machine language programming. 

Writing A Raster Interrupt 

When you have finished writing the machine 
language routine that you want the interrupt to 
execute, the steps required to set up the raster 
"interrupt are: 

1. Set the interrupt disable flag in the status 
register with an SEI instruction. This will disable 
all interrupts and prevent the system from 
crashing while you are changing the interrupt 
vectors. 

2. Enable the raster interrupt. This is done by 
setting bit 0 of the VIC-II chip interrupt enable 
register at location 53274 ($D01A) to 1. 

3. Indicate the scan line on which you want 
the interrupt to occur by writing to the raster 
registers. Don't forget that this is a 9-bit value, 
and you must set both the low byte (in location 
53264) and the high bit (in the register at 53265) in 


order to insure that the interrupt will start at the 
scan line you want it to, and not 256 lines earlier 
or later. 

4. Let the computer know where the machine 
language routine that you want the interrupt to 
execute starts. This is done by placing the address 
in the interrupt vector at locations 788-789 ($314- 
$315). This address is split into two parts, a low 
byte and a high byte, with the low byte stored at 
788. To calculate the two values for a given address 
AD, you may use the formula HIBYTE = INT(AD/ 
256) and LOWBYTE = AD-(HIBYTE*256). The 
value LOWBYTE would go into location 788, and 
the value HIBYTE would go into location 789. 

5. Re-enable interrupts with a CLI instruction, 
which clears the interrupt disable flag on the status 
register. 

When the computer is first turned on, the 
interrupt vector is set to point to the normal 
hardware timer interrupt routine, the one that 
advances the jiffy clock and reads the keyboard. 
Since this interrupt routine uses the same vector 
as the raster interrupt routine, it is best to turn off 
the hardware timer interrupt by putting a value 
of 127 in location 56333. If you want the keyboard 
and jiffy clock to function normally while your 
interrupt is enabled, you must preserve the con¬ 
tents of locations 788 and 789 before you change 
them to point to your new routine. Then you must 
have your interrupt routine jump to the old inter¬ 
rupt routine exactly once per screen refresh (every 
sixtieth of a second). 

Another thing that you should keep in mind 
is that at least two raster interrupts are required if 
you want to change only a part of the screen. The 
interrupt routine must not only change the dis¬ 
play, but it must also set up another raster inter¬ 
rupt that will change it back. 

Program 1 is a BASIC program that uses a 
raster-scan interrupt to divide the display into 
three sections. The first 80 scan lines are in high- 
resolution bitmap mode, the next 40 are regular 
text, and the last 80 are in multicolor bitmap mode. 
The screen will split this way as soon as a SYS to 
the routine that turns on the interrupt occurs, 
and the display will stay split even after the 
program ends. Only if you hit the STOP and 
RESTORE keys together will the display return to 
normal. 

Program 2 shows how a completely different 
split screen can be set up using the same machine 
language program. The DATA statements for the 
interrupt routine are the same as for Program 1, 
except for the tables starting at line 49264. By 
changing these tables, we now have a display 
that shows all three text modes: regular, extended 
background color, and multicolor. Upper- and 
lowercase text are mixed, and each area has a 
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different background color. This program also 
shows that you can change the table values during 
a program by POKEing the new value into the 
memory location where those table values are 
stored. In that way, you can, for example, change 
the background color of any of the screen parts 
while the program is running. 

Once you know how to use all the graphics 
features that the VIC-II chip makes available, the 
sample interrupt program should enable you to 
combine several different display modes on a 
single screen, so that you can take maximum ad¬ 
vantage of the 64's graphics power. 


Program 1: Text With Graphics 


10 FOR 1=49152 TO 49278: READ A:POKE I,A 
:NEXT:SYS12 *4096 

20 PRINT CHR$(147):FOR 1=0 TO 8:PRINT:NE 
XT 

30 PRINT"THE TOP AREA IS HIGH-RES BIT MA 
P MODE" 

40 PRINT:PRINT"THE. MIDDLE. AREA IS ORDINA 

50 PRINT:PRINT"THE BOTTOM AREA IS MULTI¬ 
COLOR BIT MAP" 

60 FORG=1024 TO 1383:POKEG,114:NEXT:FORG 
=1384 TO 1423:POKE G,6:NEXT 

70 FORG=1664 TO 2023:POKEG,234:NEXT 

80 F0RG=55936T056295:POKEG,13:NEXT 

90 FOR 1=8192 TO 11391:POKE 1,0:POKE 1+4 
800,0:NEXT 

100 BASE=2*4096:BK=49267 

110 H=40:C=0:FORX=0TO319:GOSUB150:NEXT 

120 H=160:C=0:FORX=0TO319STEP2:GOSUB150: 

NEXT: C=40 : F0RX=1T0319STEP2 : GOSUB150: 


130 C=80:FOR X=0 TO 319 STEP2:W=0:GOSUB1 
50: W=1: GOSUB150 : NEXT 
140 GOTO 140 

150 Y=INT(H+20*SIN(X/10+C)):CH=INT(X/8): 
R0=INT(Y/8) :LN=YAND7 

160 BY=BASE+RO* 3 2 0+8 * CH+LN: BI = ABS ( 7 - (XAN 


49158 DATA 169. . _ . _ 

49164 DATA 3, 133, 251, 173, 112, 192 
49170 DATA 141, 18, 208, 169, 24, 141 
49176 DATA 17, 208, 173, 20, 3, 141 
49182 DATA 110, 192, 173, 21, 3, 141 
49188 DATA 111, 192, 169, 50, 141, 20 
49194 DATA 3,.169, 192, 141, 21, 3 
49200 DATA 88, 96, 173, 25, 208, 141 
49206 DATA 25, 208, 41. 1. 240, 43 
49212 DATA 198, 251 
49218 DATA 133, 251 
49224 DATA 192, 141 
49230 DATA 192, 141 
49236 DATA 192, 141 
49242 DATA 192, 141 
49248 DATA 192, 141 
49254 DATA 6, 104, : 

49260 DATA 64, 76, ■ 


49264 DATA 49, 170, 129 :REM SCAN LINES 
49267 DATA 0, 6, 0:REM BACKGROUND COLOR 
49270 DATA 59, 27,59:REM CONTROL REG. 1 
49273 DATA 24, 8, 8:REM CONTROL REG. 2 
49276 DATA 24, 20, 24:REM MEMORY CONTROL 


Program 2: The Three Text Modes 


10 FOR 1=49152 TO 49278: READ A:POKE I,A 
:NEXT:SYS12*4096 

20 PRINTCHR$(147)CHR$(5):POKE 53280,0 
30 POKE 53280,0:POKE 53282,6:POKE 53283, 
5:POKE 53284,4 

40 PRINT SPRINT"THIS IS MULTI-COLOR TEXT 
50 PRINT:PRINT"FOUR-COLOR CHARACTERS ARE 


60 PRINT SPRINT CHR$(150)"ABCDEFGHIJKLMNO 
PQRSTU.VWXYZ12 345 6 7890 " 

70 PRINT SPRINT SPRINT SPRINT CHR$(28)"THIS 
IS NORMAL TEXT MODE..." 

80 PRINT SPRINT"NOTHING FANCY GOING ON HE 
RE"s PRINT:PRINT:PRINT 
90 PRINTCHR?(144)"{6 SPACES}EX{RVS}TE 
{OFF}ND{RVS}ED{OFF} BA{RVSTCK{OFFTGR 
{RVS}OU{OFF}ND{RVS} ClOFF}OLTRVS}OR 
{OFF} MO{RVS}DE{OFF}TUP}" 

100 PRINT SPRINT"LETS YOU USE DIFFERENT B 
ACKGROUND COLORS" 

110 PRINT " {RVS}LETS. YOU USE DIFFERENT B 
ACKGROUND COLORS" 

120 PRINT" LETS {SHIFT-SPACE}YOU 

{SHIFT-SPACE}USE{SHIFT-SPACE}DIFFERE 
NT{SHIFT-SPACE TBACKGROUND 
Tshift-space} COLORS " 

130 PRINT "{RVS} LETS jSHIFT-SPACE}YOU 

{SHIFT-SPACE}USE{SHIFT-SPACE} DIFFERE 
NT{SHIFT-SPACE TbACKGROUND 

Tshift-space} colors "? 

140 FORS=0TO3000:NEXT 

150 F0RS=49267T049269 s POKES,RND(1)*16:FO 
R 1=1 TO 2000:NEXT I,S:GOTO 140 
49152 DATA 120, 169, 127, 141, 13, 220 
49158 DATA 169, 1, 141, 26, 208, 169 
49164 DATA 3, 133, 251, 173, 112, 192 


49170 

49176 

49182 

49188 

49194 

49200 

49206 

49212 

49218 

49224 

49230 

49236 

49242 

49248 

49254 

49260 

49264 

49267 

49270 

49273 

49276 


DATA 141, 18, 208, 169, 24, 141 
DATA 17, 208, 173, 20, 3, 141 
DATA 110, 192, 173, 21, 3, 141 
DATA 111, 192, 169, 50, 141, 20 
DATA 3, 169, 192, 141, 21, 3 
DATA 88, 96, 173, 25, 208, 141 
DATA 25, 208, 41, 1, 240, 43 
DATA 198, 251, 16, 4, 169, 2 
DATA 133, 251, 166, 251, 189, 115 
DATA 192, 141, 33, 208, 189, 118 

DATA 192, 141, 17, 208, 189, 121 

DATA 192, 141, 22, 208, 189, 124 

DATA 192, 141, 24, 208, 189, 112 

DATA 192, 141, 18, 208, 138, 240 

DATA 6, 104, 168, 104, 170, 104 
DATA 64, 76, 49, 234 
DATA 49, 177, 113 :REM SCAN LINES 
DATA 2, 7, 6:REM BACKGROUND COLOR 
DATA 91, 27,27sREM CONTROL REG. 1 
DATA 8, 8, 24sREM CONTROL REG. 2 
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A Fig-Forth Utility 

Jurgen Pfeifer, 


There are several versions of Forth. The most 
popular is the Implementation of the Forth- 
Interest-Group (FIG), the well known fig-Forth.. 
But there exists an improvement, the 79-Standard 
Forth, which is very close to fig-Forth. 

The 79-Standard describes a very useful word, 
which doesn't exist in fig-Forth. It is the word 
"roll." The Forth stack notation for roll is: 
roll n- 

This word extracts the nth stack value to the top 
of stack, not counting n itself, moving the re¬ 


maining values into the vacated position, n must 
be strictly positive. 



The screens here contain a low-level definition of 
"roll" for a 6502 fig-Forth, using the Forth 6502 
macroassembler. 

As an application, the screens contain the 
definition of the signed double-integer multiplica¬ 
tion operator "d*". Try to define it without roll! 


SCR #106 

0 ( ROLL JPF JUL82 ) 

1 CODE ROLL ( N - ) 

2 1 # LDA, SETUP JSR, XSAVE STX, N LDA, SEC, 1 # SBC, CS 

3 IF, 0= NOT IF, 

4 TAY, .A ASL, CLC, XSAVE ADC, TAX, 

5 BOT LDA, PHA, BOT 1+ LDA, PHA, 

6 BEGIN, DEX, DEX, 

7 BOT LDA, SEC STA, 

8 BOT 1+ LDA, SEC 1+ STA, 

9 DEY, 0= 

10 UNTIL, PLA, PUT JMP, 

11 THEN, 

12 THEN, NEXT JMP, END-CODE 

13 ( ROLL : EXTRACT THE N-TH STACK VALUE TO THE TOP OF STACK, NOT 

14 COUNTING N ITSELF, MOVING THE REMAINING VALUES INTO THE 

15 VACATED POSITION. N>0 ) 


SCR #107 

0 ( ROLL APPLICATION JPF JUL82 ) 

1 : PICK 2* SP@ + @ ; 

2 ( N1 - N2 : RETURN THE CONTENTS OF THE Nl-TH STACK VALUE, 

3 NOT COUNTING N1 ITSELF. N>0 ) 


5 : 2SWAP ROT >R ROT R> ; 

6 ( D1 D2 - D2 D1 : EXCHANGE THE TOP TWO DOUBLE NUMBERS 

7 ON THE STACK. ) 

8 


9 : D* OVER 5 PICK U* 6 ROLL 4 ROLL * + 2SWAP * + ; 

10 ( D1 D2 D3 : LEAVES THE ARITHMETIC PRODUCT OF THE 

11 DOUBLE PRECISION INTEGERS D1 AND D2 ) 

12 

13 

14 

15 


© 
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Banish Atari 

INPUT 

Statements 

Jirxj Faryar 

If you use BASIC's INPUT statement, you relinquish 
control to the computer. Here is a subroutine that 
lets you avoid INPUT by using the Atari's string¬ 
handling. 


Here's an enhanced No-INPUT-Statement Input 
subroutine for the Atari. It is a useful application 
of Atari's string-handling method. We use POS to 
keep track of the relative position of the cursor 
within the string INP$. Then, we assign the char¬ 
acter typed in by the user, CHR$(KE Y), to the 
input string INP$ at position (POS,P0S), replacing 
anything in that position (line 47). 

Cursor right and left keys result in a change 
in POS, but no character assigned to ,INP$. The 
BACK-S key results in a change in POS, as well as 
a space assigned to replace the character in the 
new position INP$(POS,POS). Additional control 
is provided by keeping POS within the space 
("mask") allowed for input, and by allowing char¬ 
acters of only type T$ (see below) to be typed in. 
The subroutine: 

• Supports the insert, delete, and right and 
left cursor keys, as well as the BACK-S key. 

• Inhibits cursor movement outside the input 
"mask" to protect the screen display. 

• Controls the length of the uset's input. 

• Controls the range of characters the user 
may input. 

• Beeps when the user attempts an unau¬ 
thorized keystroke. 

Type in the program. 

Lines 10-17 support the use of the INSERT key. 

Lines 18-27 support the use of the DELETE key. 

Lines 28-33 support the use of the CURSOR-RIGHT 
key. 

Lines 34-42 support the use of the CURSOR-LEFT 
and BACK-S keys. 

Lines 43-49 restrict the characters that may be input. 

Be careful to include the semicolon that ends most 
of the PRINT statements. Run the program: try 
any keystrokes you wish and see the result. I could 
not disable the BREAK or the SYSTEM RESET 


keys (can anyone show me how?). 

To use the subroutine in your own programs, 
simply: 

1. Start your program at line 100. 

2. PRINT your input prompt, ending it with 
a semicolon. 

3. LET LI = length you will allow for input. 

4. LET T$ = type of characters you will allow: 
"A" - converts all lowercase letters input 

to uppercase. 

"9" - allows numbers only. 

"X" - allows all characters. 

(You can add to and modify these categories, 
by altering lines 44-45.) 

5. GOSUB5. 

6. INP$ will contain the value input. You can 
set it equal to your own variable, for example: 

NAMES=INP$ 

NUM$=INP$: NUM = VAL(NUM$). 

Note that, for numeric variables, I do not 
take VAL(INP$), but VAL of an intermediate 
variable NUM$: because VAL(INP$) ad¬ 
versely affects the use of INP$ in subsequent 
calls to the subroutine. I don't know why this 
happens. 

7. Remember not to use the variables II, LI, 
T$, KEY, INP$, and POS anywhere else in 
your program. 


INPUT Mask 



8 IF KEY=155 THEN RETURN 


8 IF KEY0254 THEN 28 


19 IF POS>LEN(INP*> THEN 50 









F POS=LEN<INP*> THEN IF INP*(POS 




F POS=LEN<INP*) THEN INP*=INP*<1 


Ll=20:T$="A":GO SUB 5 

POSITION 4,4 
PRINT "NUMBER: "; 


220 L 1 =3 :T*="A":GOSUB 5 


f PRINT NAME*,LEN(NAME*) 




















PartIV 


Visiting The 
VIC-20 Video 

1 rti Jim Butterfield, Associate Editor 


In which the traveller finds that the highest resolutions 
can be achieved by setting his sights a little lower. 


We've spent some time viewing the world (or at 
least memory) from a video chip's-eye view, and 
we've noted that the video chip sees memory in 



We've muddled with the character set, both 
built-in and home brewed. But we haven't seemed 
to deal with achieving that mystic goal - high 
resolution screen control. 

We've dealt with custom characters. And as 
Glinda the Good Witch could have said to 
Dorothy, "If you had known their powers, you 
could have done it the very first day." In other 
words, we've been looking at high resolution all 
along without recognizing it. 

Here's the trick: if every position on the screen 


contained a different character, and if we can de¬ 
fine any character-at will, we can define any spot 
on the screen as we wish. 

Filling In 

Mechanically, we do it this way: the first cell on 
the screen will contain character zero; the next 
will contain character one; and so on. To change 
the upper-leftmost pixel on the screen, we modify 
the upper-left pixel of character zero, and the 
screen immediately shows the change. 

This is a change from our usual use of screen 
and character set. Our screen memory is now 
totally fixed and must not change. Normal print¬ 
out and things like scrolling must stop. The char¬ 
acters, on the other hand, are now completely 
variable, with pixels turning on and off according 
to what the picture needs. 

Wait - there's a problem. It seems that the 
screen has room for 506 characters; yet we know 
that we can make only 256 individual characters. 
Something doesn't fit. How can we resolve this 
problem? 

There are two ways. One is to use "double 
characters" - the jumbo-sized characters that we 
get when we POKE an odd number into address 
36867. Each of our 256 characters now occupies 
twice the space on the screen, so that we can cover 
the screen easily. The character set table now be¬ 
comes huge, of course: each character takes 16 
bytes to describe, making the whole table up to 
4096 bytes long. 

Since we're trying to describe things you can 
achieve in an unexpanded VIC, this becomes im¬ 
practical - it's hard to take 4K away from a machine 
that has only 3.5K available to start with. On a 
machine with memory expansion, however, this 
is quite practical; read on, for we'll use tricks on 
the small machine that will come in handy even 
on the big ones. 

The other method is this: cut the size of the 
screen so that it contains only 256 characters or 
less. We can store the number of columns and 
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rows we want into 36866 and 36867. POKE 
36866,16 will set 16 columns; and POKE 36867,32 
will set 16 rows (we must multiply the number by 
two here). How many characters can we store? 
256 - and that number may sound familiar by 

By the way, BASIC won't know how to cope 
with the peculiar row and column counts if you 
do this as a direct command, so be prepared for 
an odd-looking screen. Neatness fanatics will 
want to center the remaining display by appropri¬ 
ate POKEs to 36864 and 36865, but I'll leave this 
as an exercise for you. 

Diving In 

Enough of this abstract theory. Let's dive into a 
program to prove that even the humble minimum 
VIC can do high resolution graphics. 

100 POKE 56,22:CLR (Drop top of BASIC) 

110 POKE 36869,222 (Relocate screen...) 

120 POKE 36866,144 (and character set) 

Note that the above line sets the screen to a half¬ 
block (128) and sets up 16 columns instead of the 
normal 22 (128 plus 16 gives 144). We may as well 
go ahead and change the rows: 

130 POKE 36867,32 (16 rows times 2) 

200 FOR J = 6144 TO 8191 
210 POKE J,0:NEXTJ 

We've cleared the entire character set to zero (all 
pixels off). Now let's set up the screen with char¬ 
acter zero in the first slot, etc.: 

300 FOR J = 0 TO 255 
310 POKE J +5632, J 
320 NEXT J 

Let's set all characters to color black: 

330 FOR J = 37888 TO 38911 
340 POKE J,0:NEXTJ 

Our screen is now ready. Serious graphics 
takes quite a bit of math (dividing by 16 to find 
the row and column; dividing by 8 for the pixel 
position), but we'll substitute a little simple coding 
to draw a triangle: 

400 FOR J = 6792 TO 6816 STEP 8 
410 POKE J,255 (horizontalline) 

420 NEXT J 

500 FOR J = 6280 TO 6664 STEP 128 

510FORK = JTOJ + 7 

520 POKE K,128 (vertical line) 

530 NEXT K,J 

600 FOR J = 6280 TO 6704 STEP 136 
610 X = 128 (leftmost pixel) 

620 FOR K = J TO J + 7 
630 POKE K,PEEK(K) OR X 
640 X=X/2 (move pixel right) 

650 NEXT K,J 
700 GOTO 700 

The program is now complete. It will wait in 
a loop at line 700 until you press RUN/STOP. 
When you do so, a number of odd things will 
happen. The computer will try to print the word 
READY into screen memory, but screen memory 


is intended for a different usage now, and all that 
will result is screen "clutter." 

Bring everything back to sanity by holding 
down RUN/STOP and hitting the RESTORE key. 

Extra Ideas 

Effective graphics calls for the use of a fair bit of 
mathematics. To place (or clear) a pixel, you need 
to find the row and column by dividing the X and 
Y coordinates by the appropriate scaling factor. 

You need to change this to a screen character 
number by multiplying the row number by the 
total number of columns and then adding the 
column number. Multiply this by eight, and you'll 
get the position where the character is located 
within the character set. Now we must go for the 
pixels within this character: the bits within a byte 
are pixels "across" and the eight consecutive bytes 
are pixels "down." Now you know why people 
buy a Super Expander - to save them from the math. 

Even when you have plenty of memory avail¬ 
able, which allows you to use double characters 
and get lots of pixels on the screen, it's usual to 
"trim" the screen a little. The normal 22 columns 
by 23 rows are usually trimmed back to 20 columns 
by 20 rows (actually ten rows of double characters). 
This does two things: it makes the arithmetic a 
little easier, and it drops the memory requirements 
from 4096 bytes for a full deck down to only 3200 
bytes. This, in turn, gives us space to pack screen 
memory into the same 4K block. That's handy, 
because we cannot be sure that the video chip 
will have access to any more than 4K of RAM. 
BASIC, of course, will long since have been moved 
to occupy memory from 8192 and up. 

If you want to add text to the high resolution 
display, it's a snap. Just copy the characters you 
want from the Character Set ROM and transfer 
them to the appropriate character slots on the 
screen. Of course, you would have thought of 
that yourself if I hadn't just told you. 

Don't forget that you can POKE appropriate 
values into 36864 and 36865 to center the graphics 
neatly. Our example looked a little lopsided; try 
your hand at making it neater. 

High resolution is there and waiting. Yes, 
you can do it on a small screen PET. 

There's a good bit of math needed. You may 
find this a challenge: after all, isn't that what a 
computer does best? 

Even if the mathematics befogs your mind 
and causes you to go out and buy a Super Ex¬ 
pander, you'll have learned a few new things. 

First, the Super Expander doesn't make graphics 
possible - they were there all the time - it just 
makes them easier. Second, you'll have a better 
idea of what's going on inside your marvellous 
VIC computer. 

Copyright © 1983 Jim Butterfield. Q 
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VICpIot 

Gerald Chick 


This utility draws or erases points on a 64 x 64 grid. 
The program also lets you examine a point to determine 
its previous status. Using the example program, you 
can get a feel for the uses of this short, but effective, 
programming tool. If you LOAD a program in from 
cassette, you'll need to re-READ the DATA of VICpIot 
back into the cassette buffer (see lines 1399-1420 and 
1510-1560). For the VIC, expanded by 3 or 8K of 
memory. 


"VICpIot" is a simple utility for the VIC-20 de¬ 
signed to plot or erase points on a 64 x 64 grid. 
VlCplot's 83-byte program accomplishes three 
important functions: it allows plotting, erasure, 
and indicates a point's previous condition. 

Functions to draw, erase, or examine a point 
(similar to Super Expander commands POINT 
c,x,y and RDOT(x,y)) are included in VICpIot. 

The last function is particularly important. Quite 
often you will want to know whether a point was 
lit or not. The sample program uses this function 
to gather data. 

Protecting The Character Set 

The character set which makes up the grid is stored 
in 2K of RAM beginning at 5120 ($1400). This set 
must be established by BASIC. VICpIot is placed 
in the cassette buffer, so only the character set 
need be protected from BASIC. If you are using 
3K or less expansion, type: 

POKE 56,20 :POKE 52,20 :POKE 55,0 
With 8K of added RAM, you will have to type: 

POKE 44,28 :POKE 7168,0 

before you load the program. This sets the start of 
BASIC above the character set. 

The pointer to character memory must also 
be reset: POKE 36869, 205 for 8K expansion; POKE 
with 253 for less memory. The sample program 
has a subroutine at 1400 to load VICpIot and draw 
the screen. Once this is finished, VICpIot is ready 
to use. A few precautions are in order, though. 

First, there is no error detection. A too large 
Y coordinate will plot in the wrong column. Worse 
than that, a too large X coordinate will be placed 
beyond the matrix, possibly in BASIC or on the 
screen. A value of 128 for X will cause a point to 
appear in your BASIC program around location 
9200. Second, don't be surprised at the size of the 


dots. They are actually two pixels square. 

Plotting Points With A Sample 
Program 

To access VICpIot, the X and Y coordinates should 
be placed in locations 251 and 252, respectively. 

To plot this point, place a one in location 253. To 
erase, place a zero there. Now call VICpIot with 
SYS 832. Voildl Location 251 now holds the status 
flag. It can be read with 
F= -(PEEK (251) =0). 

If F = 1 then the point was lit previously. A zero 
indicates it was dark. 

A point can be lit in one of three colors (char¬ 
acter, border, or auxiliary) set by the user. The 
color used is determined by the following table, 
which shows the value for each color. The data 
for this table is in line 1500 of the sample 
program. 

The sample program is a good demonstration 
of how VICpIot works. Two areas are selected, 
and 4000 random points are plotted on each. If a 
chosen point is already lit, a counter is in¬ 
cremented. Ten samples are taken of this count, 
and a bar graph is drawn to compare each trial. 
The bars are numbered, and the graph is scaled 
by hundreds. 

The program is written for the 8K expander. 
To work in less memory, the POKEs for screen 
and color will have to be changed. The many 
REMarks should help you understand all the ele¬ 
ments of this handy program. 



1 REM GRAPH DEMO USINGl10 SPACESIVICPLOT 


5 REM THIS PROGRAM WRITTEN FOR 8K EXPAND 
15 GOSUB1400!gOTO100 

19 REM USE: IFX>630RY>63THENRETURN FOR E 
RROR PROTECT AT LINE 20 IF NECESSARY 

20 POKE251,X:POKE252,Y:POKE253,E 








































































































VIC 

Display Messages 

Rick Keim 


"Display Messages" is a program which will do 
just that on the VIC color screen. The message 
appears on the right, one character at a time, 
moves leftward across the screen, and then van¬ 
ishes. The program can be used to display business 
hours, holiday greetings, information, directions, 
and so forth. Passersby can't resist reading the 
messages. 

Program 1 can be incorporated easily as a 
subroutine in games and other programs where 
an eye-catcher is needed. It is a demonstration 
and you can quickly substitute a message of 
your own by changing the DATA statements at 
the end of the program. Be sure to type the 
program exactly as shown. After you have the 
program running, try changing the number of 
cursors-left in line 50 and see what happens. Try 
changing the TAB(20) to another number; This 
should give you some idea of how the program 
moves your message. 

The key is line 50, with the proper number of 
tabs and cursors-left. Most important is the 
CHR$(20), which actually causes the movement 
by removing a space at column 2, line 11. That 
makes everything move one space to the left. 

Note: The VIC will not print some punctuation 
marks - including commas and colons - from the 
DATA statements unless they are enclosed in 
quotation marks. Program 1 is useful for short, 
reusable messages. These can be stored easily on 

However, long messages require very long 
DATA statements which are time-consuming and 
awkward. Program 2 allows direct typing of your 
message without the use of DATA statements. 
The program also offers a choice of screen and 


letter colors and provides two areas for stationary 
messages to appear. The mid-screen area is used 
for the moving display, while the upper- and 
lower-screen portions may be used for up to five 
lines of stationary messages or graphics. The for¬ 
mat is as follows: 

1. Choose screen and border colors 

2. Top screen message (yes or no) 

a. letter color 

b. five lines of messages 

3. Bottom screen message (yes or no) 

a. letter color 

b. five lines of messages 

4. Moving display letter color 

a. reverse or normal letters 

b. number of characters needed 

5. Write display message 

6. Run 

The length of any message is determined and 
limited only by the amount of memory available. 
You select the approximate number of characters 
needed and perform a DIM statement on A$. It 
will hold the characters entered for your display 
message. 

RETURN Key Options 

The RETURN is used to speed input. Using RE¬ 
TURN for any input requested in the program 
will give preset values; for colors RETURN selects 
blue; for screen and border, RETURN gives cyan 
with white screen; and for yes or no questions, 
RETURN gives a no answer. Once the message is 
running it is in an endless loop. To stop the pro¬ 
gram, hit the RUN/STOP key and the RESTORE 
key at the same time. 


The program as shown does not have the 
capability to save and store a message on tape for 
later use. That takes more memory and, therefore, 
limits the length of messages you can write. If 
you have an expanded VIC-20, however, you 
need not worry about memory space. Additions 
and changes for the Display Messages program 
are included to change it into a display and save 
program (see Program 3). Program 3 can be used 
on an unexpanded VIC-20 if you are careful to 
use 25 or fewer characters in your moving display 
message. If you use more than 25 characters, there 
is not enough memory to complete the save por¬ 
tion of the program. You will get an "out of mem¬ 
ory" error and will have lost your message. 

Ideas For Other Programs 

Several programming ideas here might prove 
useful in other programs. One is the use of the 
letter color subroutine. If you look at lines 400 to 
510, you will notice that the routine uses DATA 
statements to select the correct CHR$ number. 

The number of the color input in line 420 tells line 
440 how many of the DATA statements to read in 
line 510. The CHR$ number read from the DATA 
statement then sets the color for CHR$(X(G)) 
which is used in the program to PRINT the color 
selected. 

By adding and changing the lines from Pro¬ 
gram 3, you will have a program which can save a 
display on a file tape. This file tape can be used 
later with Program 4 to play back your message. 

You can also have upper- and lowercase let¬ 
ters in your display messages by pressing the 
SHIFT and COMMODORE keys at the same 
time. Do this at the beginning of the program. 

You can save the program on a file tape, recover 
it using the load display, then press the SHIFT 
and COMMODORE keys to restore proper case. 

Program 4 recovers the data from a file tape 
containing the message. Lines 30-130 use this 
data to display the message. You may notice that 
in line 224 the value of I has been doubled. This is 
necessary because as the data is saved on the file 
tape with a GET# statement, a CHR$(13), a RE¬ 
TURN, is entered after each data bit. Without 
doubling (I) you are returned only half of your 
message, and it contains a space between each 
character. Line 80 then takes the doubled (I) and 
by using a STEP 2 eliminates all of the spaces 
caused by the GET# statement. The result is a 
display message exactly like the one saved by the 
display and save program. 

If you put Program 4 as the first program on 
a file tape, then save your messages after it, you'll 
have easy access to your library of messages. Just 
one tape is needed since the load and file are 
together. 


If you would like the programs, but don't 
have time to type them in, send $3, a tape, and a 
stamped, self-addressed mailer to: 

Rick Keim 
306 Yorktown Dr. 

Goshen, IN 46526 

Program 1: 

Routine For Short Reusable Display Messages 

10 PRINT”ICLRl" 

30 IP A?="-l" THEN RESTORE:GOTO 20 
40 PRINT”lHOME)(11 DOWN)" 

50 PRINT TAB(20)"";A?:PRINT"121 LEFT}";CH 
R?(20) 

60 FOR T=1 TO 150:NEXT:GOTO 20 
100 DATA T,H,I,S, ,1 

120 DATA S,'p!l!a!y' 

130 DATA ,M,E,S,S,A 
140 DATA G,E, , , , ,-l 

Program 2: 

Program For Long Display Messages 

0 PRINT" ICLR) { 3 SPACES) 13 DOWNHrVS) 

1 RED}DISPLAY MESSAGESlOFFjlBLU}" 

4 PRINT"14 DOWN}(SEE VIC SCREEN CODES 
(2 SPACES}APPENDIX E PAGE 134 

14 SPACES}VIC-20 GUIDE BOOK)" 

5 INPUT"16 UP}SCREEN COLOR#(8-255)"; C 

6 IFC<80RC>255THENC=27 
8 GOSUB200:RESTORE 

10 PRINT"ICLR}{DOWN}iRVS}{RED}DISPLAY ME 
SSAGElOFF}1BLU}l7 SPACES}(MOVING) 
[DOWN}” 

12 GOSUB400 

14 PRINT"12 DOWN}(2 SPACES}lRVS}lRED}REV 
ERSE 1OFF}1BLU} OR NORMAL?13 SPACESjl- 
tRVS}[REDjREVERSEtOFF}(BLU)13 SPACES} 
0-NORMAL":INPUTR 

15 IFR=1THENR=18 

16 PRINT"1CLR}1 DOWN}(2 SPACES}# OF LETTE 
RS NEEDED13 SPACES}FOR MOVING MESSAGE 
13 SPACES}(PUSH RETURN FOR 250) 

17 INPUTML:IFML=0THENML=250 

18 DIMA?(ML) 

20 PRINT"1CLR}1 DOWN}15 SPACES}1RVS}1BLU} 
WRITE MESSAGE 1OFF}":PRINT"{13 DOWN} 

(2 SPACES}1RVS}(RED)PUSH RETURN TO EN 
D {OFF} 1 BLU j " 

22 PRINT"(DOWN)(3 SPACES}PUSH FI TO STAR 
T(7 SPACES}MESSAGE OVER" 

23 PRINT"!DOWN}(2 SPACESjUSE (RVS}(RED}i 
NST/DEL lOFF} (BLU} TO(6 SPACES JBACKSPA 
CE ON ERRORS" 

25 FORI=0TOML 
30 GETA?:IFA?=""THEN30 

35 IFA?=CHR?(13)THENFORI=ITOI+5:A?(I)=CH 
R?(32):NEXTI:PRINT”(CLR}":GOTO100 

36 IFA?=CHR?(133)THEN20 

37 IFA?=CHR?(20)THENI=I-1:GOTO52 

45 PRINT"(HOME)(2 DOWN}":PRINTTAB(I)"":A 

50 NEXTI:GOTO60 

52 PRINT"[HOME}(2 DOWN}":PRINTTAB(I)" 

1LEFT}":GOTO30 
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60 PRINT"[CLR} SORRY-OUT OF MESSAGE 
l2 SPACES}SPACE, INCREASE # OF 
(2 SPACES}LETTERS NEEDED" 

62 PRINT"(DOWN}(5 SPACES}PUSH lRVS}RETUR 
N{OFF}{BLU}":PRINT"14 SPACES}TO START 

64 GETA$ : IFA?= " "THEN64 
66 POKE36879,27:RUN 

100 PRINT"[ CLR}":POKE36879,C 

101 PRINT"[HOME}{2 DOWN}" 

102 FORD=0TOT:PRINTTAB(L(D))“"CHR?(X(1)) 

;TS?(D):NEXTD 

103 PRINT"[HOME}[14 DOWN}" 

104 FORD=0TOU:PRINTTAB(LL(D))""CHR?(X(2) 
);BS$(D):NEXTD 

105 PRINT"{HOME}[10 DOWN}" 

110 FORN=0TOI 

120 PRINTTAB(20)"";CHR$(R);CHR?(X(3));A? 

(N)I"{20 LEFT}";CHR?(20) 

130 PRINT"[2 UP}" 

135 FORT=1TO150:NEXT 
140 IFN=ITHEN105 
150 NEXTN 

200 PRINT"[CLR}[DOWN}ANY NON-MOVING MESS 
AGE FOR TOP SCREEN":PRINTTAB(5)"1- 
[RVS}[RED}YES(OFF}[BLU}","0-NO":INPU 

202 ONSGOSUB210:GOTO250 

210 RESTORE:GOSUB400 

211 PRINT"(CLR)[DOWNjWRITE UP TO 5 LINES 

AT22 CHARACTERS PER LINE" 

212 PRINT *PUSH (RVS}(RED}RETURN[OFF} 
{BLU} TO END" 

214 FORT=0TO4:INPUTTS?(T):IFTS?(T)=""THE 
NRETURN 

216 L(T)=(22-LEN(TS$(T)))/2 
218 PRINTTAB(L(T))"";TS?(T):NEXTT:RETURN 
250 PRINT"(CLR)(DOWN)ANY NON-MOVING MESS 
AGE FOR BOTTOM SCREEN":PRINTTABt5)"1 
-{RVS}{RED}YES[OFF}[BLU}","0-NO" 

252 INPUTD 

254 ONDGOSUB260:RETURN 

260 RESTORE:GOSUB400 

261 PRINT"[CLR}[DOWNjWRITE UP TO 5 LINES 

AT22 CHARACTERS PER LINE" 

262 PRINT“PUSH [RVS}[RED}RETURN[OFF} 
[BLU} TO END" 

264 FORU=0TO4:INPUTBS?(U):IFBS?(U) =""THE 
NRETURN 

266 LL(U)=(22-LEN(BS$(U)))/2 

268 PRINTTAB(LL(U))"";BS$(U):NEXTU:RETUR 

400 PRINT"LETTER COLOR? (CHOOSE COLOR f) 
":G—G+l 

410 FORA=0TO7:READA?:PRINTTAB(5)"";A$:NE 


[3 SPACES)(PUSH RETURN FOR 100) 

17 INPUTML:IFML=0THENML=100 
35 IFA?=CHR?(13)THENFORI=ITOI+5:A?{I)=CH 
R$(32):NEXTI:PRINT"[CLR}":GOTO700 
90 PRINT"{CLR}[4 DOWN}[4 SPACESjPUSH ANY 
KEY TO[2 SPACES}[DOWN}[2 SPACES}STOP 
DISPLAY MESSAGE [DOWN}[4 SPACESjAND 
RETURN TO" 

92 PRINT"(DOWN)[4 SPACES}[RVS}[RED}SELEC 
T OPTION[OFF)[BLU}" 

95 FORQ=0TO2000:NEXT 

135 FORTT=0TO25:GETC$:IFC$=""THEN138 

136 POKE36879,27:PRINT"[CLR}":GOTO700 
138 NEXTTT 

600 POKE36879,27:PRINT"[CLR}[2 DOWN} 

[RVS}[RED}SAVE FILE#lOFF}t BLU}":INPU 
TF 

610 OPENF,1,1 

620 B(0)=I:B(1)=T:B(2)=U:B(3)=C:B(4)=R 
622 FORA=0TO4:PRINT#F,B(A):NEXT 
625 F0RG1=1T03:PRINT#F,X(G1):NEXT 
630 FORT1=0TOT:PRINT#F,TS$(T1):NEXT 
640 FORT2=0TOU:PRINT#F,BS?(T2):NEXT 
650 FORII=0TOI:PRINT#F,A?(II):NEXT 

700 PRINT"(2 DOWN}(RVS}[RED}SELECT OPTIO 
N[OFF}{BLU}[DOWN}":PRINT"l4 SPACES} 

[RVS}1[OFF}-NEW MESSAGE":PRINT" 

[4 SPACES}!RVS}2[OFF}-SAVE MESSAGE" 
710 PRINT"[4 SPACES}(RVS}3[OFF]-RUN MESS 

720 INPUT" [ RVS } SELECTION(OFF } "; SO 
730 IFSO<2THEN66 
740 IFSO=2THEN600 
750 IFSO>2THEN90 


Program 4: Message Playback 


10 PRINT"lCLR}": 

20 GOSUB200 

30 PRINT"lCLR}":POKE36879,C 
40 FORD=0TOT:L(D)=(22-LEN(TS?(D)))/2:PRI 
NTTAB(L(D))""CHR?(X(1));TS?(D):NEXT 
50 PRINT"(HOME)[15 DOWN}" 

60 FORD=0TOU:LL(D)=(22-LEN(BS?(D)))/2:PR 
INTTAB(LL(D))"";CHR?(X(2));BS?(D):NEX 

70 PRINT"[HOME}[10 DOWN}" 

80 FORN=0TOISTEP2 

90 PRINTTAB(20)"":CHR?(R);CHR?(X(3));A?( 
N);"(20 LEFT}";CHR?(20) 

100 PRINT”(2 UP}" 


420 INPUTLC(G) 

430 IFLC(G)<10RLC(G)>8THENX(G)=31:G0TO14 
440 FORB=lTOLC(G):READW:NEXTB:X(G)=W 
450 RETURN 

500 DATA1-BLACK,2-WHITE,3-RED,4-CYAN,5-P 
URPLE,6-GREEN,7-BLUE,8-YELLOW 
510 DATA144,5,28,159,156,30,31,158 


Program 3: Save And Display Messages 

16 PRINT"[CLR}[DOWN](2 SPACES}# OF LETTS 
RS NEEDED{3 SPACES}FOR MOVING MESSAGE 


120 IFN=ITHEN70 
130 NEXTN 

200 PRINT" (CLR) [2 DOWN}[RVS}[RED}LOAD FI 
LE#[OFF}[BLU}":INPUTF:INPUT"FILE NAM 
E";F? 

210 OPENF,1,0,F? 

222 FORA=0TO4:INPUT#F,B(A) :NEXT 

224 I=B(0)*2:T=B(1):U=B(2):C=B(3):R=B(4) 

240 F0RG1=1T03:INPUT#F,X(G1):NEXT 
250 FORTl=lTOT:INPUT#F,TS?(T1):NEXT 
260 FORT2=lTOU:INPUT#F,BS?(T2):NEXT 
270 FORII=lTOI:GET#F,A?(II):NEXT 
280 RETURN 6 



FORTH PAGE 


Floating Point Division 

•':l^ot Bonis 


The screen given below will create four new words 
(three "helper" words and one main word). Here 
is a description of all four words: 

1T03 - This word will duplicate the value on 
top of the stack into the third position of the 
stack (note: the current third value becomes 
the fourth value; the current fourth value 
becomes the fifth value, etc.). 

For example, if the stack looks like this: 



A call to 1T03 will leave the stack as follows: 



QUOT - This word will compute and output 
the quotient of A/B. Also, the decimal point is 
output in this word (the 46 EMIT, is a decimal 
value of 46). 

REMAIN - This word will output the next 
digit in the remainder. It should be under¬ 
stood that on each call only one digit is re¬ 
turned. Also, the 48 + converts the digit to 
ASCII code so that it can be printed instead 
of being popped off the stack with the . 
word. 

FPDIV - This is the word that will be used 
when you want to divide two numbers (for 
example, 5 3 FPDIV will divide 5/3). In this 
example, FPDIV will return ten digits of the 
remainder (because of the 10/0 DO LOOP). If, 
for some reason, you want 100 digits in the 
remainder, simply change the 10 to a 100. 

The value returned can't be used in a pro¬ 
gram. It is useful in that you may divide two num¬ 
bers and obtain any precision that you desire. 

Screen for the floating point division word. 

For fig-FORTH or compatible FORTHs 

SCR # 76 

O 

1 : 1TD3 DUP ROT SWAP J 

2 

3 s QUOT 1T03 /MOD . 10 * SWAP 

4 1T03 46 EMIT ; 

5 

6 s REMAIN /MOD 48 + EMIT 


7 lO * SWAP 1T03 ; 

8 

9 < **MAIN WORD IS ’FPDIV’ **« > 
10 

11 : FPDIV DECIMAL QUOT 10 O DO 

12 REMAIN LOOP DROP DROP DROP ; 

13 

14 ; S 

15 


Make these changes if your/MOD works 'backwards': 

: QUOT 1T03 /MOD SWAP . 10 * SWAP 
5 REMAIN /MOD SWAP 48 + EMIT © 
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NEWS^PBODUCTS 


Atari Disassembler 

Ultra Disassembler, a labelling- 
disassembler for Atari com¬ 
puters, is available from Adven¬ 
ture International. 

The program recreates the 
source code from which a 
machine language program was 
assembled. It can disassemble 
DOS files or code from a list of 
specified disk sectors. 

Output may be written to 
the screen, printer, or disk file. 
The disassembly is reversible 
and may be edited and reas¬ 
sembled with any popular Atari 
assembler. 

Ultra Disassembler sells for 
$49.95. 

Adventure International 
Box 3435 

Longwood, FL 32750 


Vocabulary 

Builder 


Power-of-Words, a word learning 
game designed by Peter Funk, 
author of the "It Pays to Increase 
Your Word Power" column in 
Reader's Digest, is available for 
Apple computers. 

Each volume includes 200 
target words and their associated 
synonyms, antonyms, prefixes, 
and suffixes. The game features 
immediate scoring, and after an 
answer is scored, the program 
provides additional information 
about the words used in the 

Power-of-Words, which sells 
for $79.95, includes two diskettes 
of five games each, worksheets, 
and a final quiz covering the 


words in all the games. 
Funk Vocab-Ware 
Peter Funk, Inc. 

4825 Province Line Road 
Princeton, NJ 08540 


TI peripherals. Memory 32Kis 
priced at $175. 

Doryt Systems, Inc. 

14 Glen Street 

Glen Cove, NY 11542 

(516)676-7950 



Memory Expansion 
And Printer 
Interface For 
TI-99/4A 


Doryt Systems has introduced a 
32K memory expansion unit and 
a parallel printer interface for 
the TI-99/4A, both of which can 
be used without the expansion 

Paraprint 18A is a parallel 8- 
bit communication interface that 
connects directly to the computer 
and works without the RS-232 
interface card. The interface sells 
for $105. 

Memory 32K adds RAM to 
the TI-99/4A, allowing the use of 
the Editor Assembler, TI Logo, 


Game Design 
Tutor 


Coco 2 is a teaching game that 
explores the fundamentals of 
computer game design with an 
approach that assumes no prior 
computer knowledge. The pro¬ 
gram follows a fully developed 
sample game and then helps the 
user alter the game's concept or 


Doryt Systems Memory 32K and Para¬ 
print 18A plug directly into the TI-991 
4A and eliminate the need for an expan¬ 
sion box. 

and other modules that require 
memory expansion. Like Para¬ 
print 18A, it plugs directly into 
the computer and provides a 
daisy-chain connection for other 


write a totally new game. 

Coco 2 is available for the 
16K VIC for $39.95. Versions 
also are available for the Com¬ 
modore 64, the 32K Atari 400, 
and the Atari 800 for $44.95. 
Human Engineered Software 
71 Park Lane 
Brisbane, CA 94005 
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Timex/Sinclair 
Control Center 

A desk-type work station for the 
Timex/Sinclair 1000 and Sinclair 
ZX-81 computers is being mar¬ 
keted by Timeworks. 


The Computer Control Cen¬ 
ter includes an on/off switch to 
eliminate the constant plugging 
and unplugging of the system. It 
also includes space for RAM 
packs, openings for cassette and 
printer cables, and a cassette 
tape storage pocket. 

Sm " whichis 


CASSETTES ! ! ! 

FOR YOUR COMPUTER 

* Phone Orders Add $1.50 C. 0. D. Fee * 

priced at $29.95, can accommo¬ 
date a 13-inch television or 
monitor. 

Timeworks, Inc. 

405 Lake Cook Road, Building A 
Deerfield, IL 60016 
(312)291-9200 

Game, Utilities 

For Atari 

COMPUTER TAPE PRICES 

Length 12 LOT 24 LOT 100 LOT 

C-5 .52/6.24 .38/9.12 .35/35.00 

C-19 .55/6.60 .40/9.60 .35/35.00 

Generic Software has produced 
a software package called Your 
First Disk for Atari computers. 

The disk includes Wordzzp, 
an educational spelling and vo¬ 
cabulary game, as well as Catalog, 
an autorun disk directory pro¬ 
gram, and Sound. Exp, a program 
for sound statement experimen¬ 
tation. The diskette also includes 
files for alphabet learning and 
math problem creation. 

The Your First Disk package 
sells for $18.95. 

Generic Software 

P.O. Box 27463 

Golden Valley, MN 55427 

— Norelco.Cassette Cases and Labels- 

1000 Pinfeed Labels 14.50 

SEND MONEY ORDERS OR CHECKS TO: 

CASS-A-TAPES 


3-lnch Disk Drive 

A compact, 3-inch floppy disk 
drive is available from Panasonic. 
The drive is plug compatible 
with most 5V4-inch disk inter¬ 
faces and uses the same re¬ 
cording method, data transfer 
rate, and disk rotation speed. 

The EME-101 drive is 
roughly half the weight and one- 
fourth the size of conventional 
disk drives, but it offers the same 
storage capacity. A brushless 
direct-drive DC motor eliminates 
the need for belts, and a steel 
band positioning mechanism 
allows for a 3-millisecond track 
access time. 



The EME-101 compact disk drive from 



















YOU'RE GONNA LOVE THESE 

rock bottom PRICES. 







Extended Screen 
Graphics For Apple 

Fontrix, an extended screen 
graphics program for the Apple 
computer, includes 11 pre¬ 
defined character sets and allows 
the creation of an unlimited 
number of other character sets. 

The program can be used 
for charts, diagrams, and news¬ 
letters, among other things, and 
text or illustrations created with 
the program can be dumped 
into a variety of printers. 

The Fontrix program costs 

$75. 

Data Transforms 

616 Washington St., Suite 106 

Denver, CO 80203 


Action/Strategy 

Games 


Several new games for the Atari 


and Commodore 64 computers 
are forthcoming from Epyx. They 
include: 

• PitStop is a formula I race 
game in which the players com¬ 
pete in the pit as well as on the 
track. The race cars include speed 
and steering controls, and the 
way you drive affects your car's 
performance: the faster you take 
the comers, the faster your tires 

• Psi Warrior is a three- 
dimensional, chess-like game. 
Up to four players compete 
against each other or the com¬ 
puter, teleporting around the 
playing field, and using bolts of 
energy in their battles. 

• In All-Star Baseball, players 
choose an all-star team made up 
of players from over the last 50 
years. Another player or the 
computer can field the opposing 

• Gateway to Apshai, the latest 
sequal to Temple of Apshai, com¬ 
bines role playing, strategy, and 


fast action as the player battles 
his way in and out of the 

Epyx is also introducing a 
VIC-20 game. Fun With Music. In 
the game, the player composes a 
tune and then has to play the 
song (or one supplied by the 
computer) without missing a 

VMKidCourt 
Sunnyvale, CA 94086 


Organized 
Programming 
On TRS-80 

Top-Dozvn BASIC for the TRS-80 
Color Computer, by Ken Skier, is 
a book on program design for 
the computer user who is familiar 
with BASIC. 

The 316-page book outlines 
a step-by-step approach to pro¬ 
duce structured programs that 



commodore64e 



COMPUTE! August 1983 

























































































are easy to read, understand, 
and extend. The paperback book 
sells for $14.95. 

BYTE Books/McGraw-Hill 
1221 Avenue of the Americas 
New York, NY 10020 


Expansion For VIC 

Mosaic Electronics has intro¬ 
duced the RAMmaster 32 for the 
VIC-20 computer. RAMmaster 
32 includes a built-in expansion 
port, a pause switch, a write 
protect switch, and a relocatable 
memory block. 

The unit, which adds 32K 
of memory, also has a disabler 
switch so cartridges can be re¬ 
moved without turning off the 
computer. RAMmaster 32 is ex¬ 
pected to sell for under $150. 
Mosaic Electronics 
P.O.Box 708 
Oregon City, OR 97045 
(800)547-2807 


Atari Graphics 
Utilities 


A graphics utility package for 
the Atari 400 and 800 computers 
has been released by Synergistic 
Software. 

The Graphics Workshop, de¬ 
signed for those familiar with 
Atari BASIC, includes a player/ 
missile module, a graphics en¬ 
hancement module, and three 


graphics editors - a player/ 
missile editor, a bitmap editor, 
and a character editor. 

The program, which is 
priced at $39.95, requires a 48K 
computer with one disk drive. 
Synergistic Software 
830 N. Riverside Dr., Suite201 
Renton, WA 98055 
(800)426-6505 


Command Control 
Mouse 


Wico has announced it will pro¬ 
duce the Command Control 
Mouse, a mechanical cursor con¬ 
trol that allows users to edit. 


draw lines, or select from a menu 
without ever touching the 
keyboard. 

By sliding the hand-held 
device across a desktop, the user 
can move the cursor to any point 
on the screen. 

The mouse can serve as a 
word processing editor, a 
spreadsheet analyst, an alternate 
input device, or as a graphics 
plotter. It includes three function 
buttons and can be used on any 
flat surface. 

Wico will supply Apple or 
IBM controller cards to serve as 
hardware interfaces. 

Wico Corporation 
6400 W. Gross Point Road 
Niles, IL 60648 































































Timex/Sinclair 

Guidebooks 

The Timex/Sinclair 1000 BASIC 
Handbook, from Sybex, is a 
dictionary-like listing of all the 
words in the T/S1000 BASIC 
vocabulary. 

Each entry includes a de¬ 
scription of the word, an example 
of its proper syntax, a sample 
program showing how the word 
is used, and notes explaining 
any special features of the word. 

The book is available for 
$7.95, plus $2 for postage. 

Sybex, Inc. 

2344 Sixth St. 

Berkeley, CA 94701 
In How to Use the Timex/Sinclair, 
Jerry Willis explains the prob¬ 
lems many Timex/Sinclair users 
face: how to get a clear TV 
picture, how to minimize tape 
recorder problems, and how to 
choose accessories for the 


computer. 

The guide, priced.at $3.95, 
also includes information on 
magazines, books, and user 
groups that support the Timex/ 
Sinclair computers. 
dilithium Press 
11000 S. W. 11th St., Suite E 
Beaverton, OR 97005 


ABC’s On Atari 

Alphabet Arcade, a series of three 
games to help reinforce alphabet 
and dictionary skills, is available 
from PDI. 

The Atari games are de¬ 
signed for children age 5 and 
up. In "Letters for Lisa," the 
child helps an animal named 
Lisa catch letters for dinner. But 
Lisa is fussy; she only eats in 
alphabetical order. 

In "Letter Treasure," al¬ 
phabetization skills come into 
play again as the player helps 
Diver Dan recover treasure from 


the bottom of the sea. In "Order, 
Please," the child is asked to put 
groups of 4, 8, or 10 words in 
alphabetical order. 

The cassette version of Al¬ 
phabet Arcade requires a 16K 
machine and sells for $18.95. 

The disk version, which requires 
24K, sells for $23.95. 

Program Design Inc. 

95 East Putnam Ave. 

Greenwich, CT 06830 
(203) 661r8799 


Low Profile Drives 
For Apple 

Multitech Electronics has intro¬ 
duced a 5!/4-inch disk drive for 
the Apple II that is approximately 
half the height and weight of a 
comparable drive from Apple. 
The design was made possible 
by simplifying the drive 
mechanism and by integrating 
the control electronics. The pro- 
















































duct is fully software transparent 
with Apple's DOS 3.3 Operating 
System. 

List price for the drive is 
$299. 

Multitech Electronics, Inc. 

195 W. El Camino Real 
Sunnyvale, CA 94086 


Loss-of-Data 

Insurance 


The Association of Computer 
Users and the St. Paul Fire and 
Marine Insurance Companies 
have announced a new type of 
insurance for small computer 
owners that includes coverage 
for accidental loss of data. 

The policy covers: 

• Direct physical loss or 
damage to equipment, disks, 
programs, documentation, and 
source materials. 

• Accidental erasure or loss 
of data. 

• Dishonest acts, fraud, or 
misuse of equipment by em¬ 
ployees or outside parties. 

• Extraordinary damage to 
equipment caused by external 
electrical problems, such as 
spikes, brownouts, or power 
surges. 

• Extra expenses incurred as 
a result of a covered loss. 

The cost of coverage is $175 
per year for protection up to 
$25,000, with a $250 deductible. 
Association of Computer Users 
P.O.Box 9003 
Boulder, CO 80301 
(303)443-3600 


Computer Diet 
For T/S 


The Personal Weight Control Pro¬ 
gram is a computerized diet and 
nutrition program produced by 
International Publishing & Soft¬ 
ware for the Timex/Sinclair 
computers. 

The program, which pre- 
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controlling eating habits, con¬ 
sists of three parts: 

• Present Status Assess¬ 
ment, which analyzes the eating 
habits and nutritional needs of 
the user. 

• Menu Building, in which 
the computer develops menus 
suited to the needs and tastes of 
the user. 

• Monitoring and Feedback, 
which tracks progress and ad¬ 
justs menus accordingly. 

The program is available for 
$29.95. 

International Publishing & 

Software, Inc. 

3952 Chesswood Drive 
Doumsview, Ontario 
Canada M3] 2W6 


Music For 
Children 


Counterpoint Software has re¬ 
leased Early Games Music, 
another program in its Early 
Games for Young Children 
series. This program, designed 
for children ages 4 through 12, is 
an assortment of games that 
introduce the basics of music. 

Songs created with the pro¬ 
gram can be saved and played or 
revised later. Early Games Music 
is available for Apple II and 
Commodore 64 computers. 
Counterpoint Software Inc. 

Suite 140, Shelard Plaza North 
Minneapolis, MN 55426 


Computer 

Resources 


More than 215 new books are 
listed in the 16th edition of the 
Annual Bibliography of Computer- 
Oriented Books, published by the 
University of Colorado. 

All introductory-type books 
published before 1980 have been 
deleted, but the bibliography 
still contains more than 1200 
books from 170 publishers. The 
books are listed under 61 
categories. 


Copies of the bibliography 
are available for $5, or $6 if an 
invoice is required. 

Computing Newsletter 
P.O.Box 7345 
Colorado Springs, CO 80933 
The Micro Center has compiled 
a new Time Saver catalog of 
microcomputer courseware. The 
catalog lists 319 high-quality, 
high-value educational programs 
for the Apple, Atari, TRS-80, 
PET, VIC, and IBM PC. 

Copies of the catalog are 
available free. 

The Micro Center 
P.O. Box 6 

Pleasantville, NY 10570 
(800)431-2434 

Computer Skill Builders has pro¬ 
duced a free catalog of micro¬ 
computer resources for the class¬ 
room. The book contains 304 
computer-related products for 
education, including software 
products, books, diskettes, and 

Computer Skill Builders 
P.O. Box42050, Dept. 7Z 
Tucson, AZ 85733 
(602)323-7500 

Selected Microcomputer Software, a 
64-page catalog of educational 
courseware for the Apple II, 
TRS-80, Commodore PET, and 
Atari microcomputers, is avail¬ 
able free from Opportunities for 
Learning. 

Programs listed in the 
catalog cover grade levels from 
primary through college and 
were selected based on their 
suitability for use in today's com¬ 
puter-enhanced classroom envi- 

Opportunities for Learning, Inc. 

8950 Lurline Ave., Dept. L45 
Chatsworth, CA 91311 


Games For The Tl 

Vaughn Software has created an 
array of cassette programs for 
the TI-99/4A computer. They 
include: 

• Mariner, a sea adventure 











HARMONY VIDEO & COMPUTERS 
800 - 221-8927 


WE CARRY A FULL LINE OF SOFTWARE FOR 
ATARI AND COMMODORE 
CALL FOR LOWEST PRICES 


VCR PRICES TOO LOW TO PRINT! 



800-221-8927 
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CAPUTE! 


Tl Teeth Wisdom 

Line 650 of this program from the July 1983 
"Programming The TI" column (p. 199) should 
read: 

650 PRINT ■ "; CHRS (156); "lie"; CIIR$ ( 

136)&CHR$ (137) &CHR$ (138) ; "e~'';CH 
R$(12 7)&CHR$(157) 

Bee Trap For VIC 

In the instructions for keyboard play on page 102 
of the June 1983 issue, line 320 should read: 

320 IFPEEK(KB) = 35THEND1 = D1 + 22:GOTO335 

Memory Trainer For Tl 

For the TI-99/4A version of this program (June 
1983, p. 118) to work in standard TI console BASIC, 
the following changes must be made: 



275 SL=2 


Thanks to David Duffan and others who 
suggested this change. 

Atari P/M Graphics Simplified 

The following lines in the moving ship example 
program developed on pages 175-178 of the June 
1983 issue need corrections: 

310 POKE VSA+ADD+1, PMHIGH 
360 C0LR1=25:COLR2=ll:COLR3=74 

706,COLR3 

400 Y1=125:Y2=25:Y3=25 

Slow List On The VIC-20 

The mysterious memory location 37879 described 
in this article from the June issue (p. 180) is actually 
location 37159, the high byte of the interrupt clock. 
Because of incomplete address decoding for the 
I/O chips, the contents of locations 37136-37167 
appear to repeat several times in locations 37168- 
37887. The location normally contains 66, not 64 
as stated in the article. For a thorough discussion 


of the effects of changing the contents of location 
37159, see the article "Versatile Data Acquisition 
With VIC" (COMPUTE!, May 1983, p. 244). 

UnNEWForVICAnd 64 

This utility program from the June 1983 issue 
(p. 213) will not work from disk. It must be SAVEd 
to tape in the manner described in the article. 

Minefield For 64 

The 64 version of this game from the June issue 
(p. 266) requires the following correction: 

360 B3(J)=BT(J)+.5*BT(J):B4(J)=B3(J)+.25 


Checkers 

To allow legal jumps with kings in this game for 
the Commodore 64 (May 1983, p. 90), the fol¬ 
lowing line must be changed: 

585 IFL1<=5ANDU1>=2THENIFS(LP,UM)<0ANDS(LI 
+2,U1-2)=0THEN600 

Crosswords For VIC 

Line 860 of this program from the May issue 
(p. 82) should read: 

Tl General-Purpose Data Base 

Line 203 of this data base management program 
for the TI from the May issue (p. 232) should 
read: 


203 FOR 10 = 1 TO IR 

64 Odds And Ends 

The article (May 1983, p. 237) noted that listing 
could be disabled by POKE 775,200. To restore 
the list feature, POKE 775,167. 

Retirement Planner For VIC 
Robert A. Brown suggests modifications which 
make this program for calculating retirement saving 
needs from the April 1983 issue (p. 71) more accu¬ 
rate, and also allow calculations for any time 
period, not just multiples of five years. First, delete 
lines 120, 460-500, 590, and 600, then make the 
following changes: 

510 D=Al/(l+Al/2):Q=((1+AI)tY-1)/D 

540 W=(SR-S1«(1+AI)TY)/Q _ 


We regret that we are no longer able to respond to 
individual inquiries about programs, products, or 
services appearing in COMPUTE! due to increasing 
publication activity. On those infrequent occasions 
when a published program contains a typo, the correc¬ 
tion will appear on the CAPUTE! page, usually within 
eight weeks. If you have specific questions about items 
or programs which you've seen in COMPUTE!, please 
send them to Readers Feedback, P.O. Box 5406, 
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A Beginner’s Guide 
To Typing In Programs 


What Is A Program? 

A computer cannot perform any task by itself. 

Like a car without gas, a computer has potential, 
but without a program, it isn't going anywhere. 
Most of the programs published in COMPUTE! are 
written in a computer language called BASIC. 
BASIC is easy to learn and is built into most com¬ 
puters (on some computers, you have to purchase 
an optional BASIC cartridge). 

BASIC Programs 

Each month, COMPUTE! publishes programs for 
many machines. To start out, type in only pro¬ 
grams written for your machine, e.g., "TIVersion" 
if you have a TI-99/4. Later, when you gain ex¬ 
perience with your computer's BASIC, you can 
try typing in and converting certain programs 
from one computer to yours. 

Computers can be picky. Unlike the English 
language, which is full of ambiguities, BASIC 
usually has only one “right way" of stating some¬ 
thing. Every letter, character, or number is signif¬ 
icant. A common mistake is substituting a letter 
such as "O" for the numeral “0", a lowercase "1" 
for the numeral "1", or an uppercase "B" for the 
numeral "8". Also, you must enter all punctuation 
such as colons and commas just as they appear in 
the magazine. Spacing can be important. To be 
safe, type in the listings exactly as they appear. 

Brackets And Special Characters 

The exception to this typing rule is when you see 
the curved bracket, such as “{DOWN}". Any¬ 
thing within a set of brackets is a special character 
or characters that cannot easily be listed on a print¬ 
er. When you come across such a special state¬ 
ment, refer to the appropriate key for your com¬ 
puter. For example, if you have an Atari, refer to 
the "Atari" section in "How to Type COMPUTERS 
Programs " 

About DATA Statements 

Some programs contain a section or sections of 
DATA statements. These lines provide informa¬ 
tion needed by the program. Some DATA state¬ 
ments contain actual programs (called machine 
language); others contain graphics codes. These 
lines are especially sensitive to errors. 

If a single number in any one DATA statement 
is mistyped, your machine could "lock up," or 
"crash." The keyboard, break key, and RESET (or 
STOP) keys may all seem "dead," and the screen 


may go blank. Don't panic - no damage is done. 
To regain control, you have to turn off your com¬ 
puter, then turn it back on. This will erase what¬ 
ever program was in memory, so always SAVE a 
copy of your program before you RUN it. If your 
computer crashes, you can LOAD the program 
and look for your mistake. 

Sometimes a mistyped DATA statement will 
cause an error message when the program is RUN. 
The error message may refer to the program line 
that READs the data. The error is still in the DATA 
statements, though. 

Get To Know Your Machine 

You should familiarize yourself with your com¬ 
puter before attempting to type in a program. 
Learn the statements you use to store and retrieve 
programs from tape or disk. You'll want to save a 
copy of your program, so that you won't have to 
type it in every time you want to use it. Learn to 
use your machine's editing functions. How do 
you change a line if you made a mistake? You can 
always retype the line, but you at least need to 
know how to backspace. Do you know how to 
enter inverse video, lowercase, and control char¬ 
acters? It's all explained in your computer's 
manuals. 

A Quick Review 

1) Type in the program a line at a time, in order. 
Press RETURN or ENTER at the end of each line. 
Use backspace or the back arrow to correct 
mistakes. 

2) Check the line you've typed against the line in 
the magazine. You can check the entire program 
again if you get an error when you RUN the 
program. 

3) Make sure you've entered statements in brac¬ 
kets as the appropriate control key (see "How To 





How To Type COMPUTERS Programs 


special control characters (cursor control, color keys, inverse 
video, etc.). To make it easy to tell exactly what to type when 
entering one of these programs into your computer, we have 
established the following listing conventions. There is a 
separate key for each computer. Refer to the appropriate 
tables when you come across an unusual symbol in a program 


Atari 400/800 



Graphics characters, such as CTRL-T, the ball character • will 
appear as the "normal" letter enclosed in braces, e.g. (T>. 

A series of identical control characters, such as 10 spaces, 
three cursor-lefts, or 20 CTRL-R's, will appear as 110 
SPACES >, 13 LEFT)!,! t|20 R), etc. If the character in braces is 
in inverse video, that character or characters should be en¬ 
tered with the Atari logo key. For example, t n} means to 
enter a reverse-field heart with CTRL-comma, {5m > means to 
enter five inverse-video CTRL-U's. 

Commodore PET/CBM/VIC/64 

Generally, any PET/CBM/VIC/64 program listings will contain 
words within braces which spell out any special characters: 

{DOWN) would mean to press the cursor down key. 15 
SPACES ) would mean to press the space bar five times. 

To indicate that a key should be shifted (hold down the 
SHIFT key while pressing the other key), the key would be 
underlined in our listings. For example, S would mean to 
type the S key while holding the shift key. If you find an 
underlined key enclosed in braces (e.g., {10 Nl), you should 
type the key as many times as indicated (in our example, 
you would enter ten shifted N's). Some graphics characters 
are inaccessible from the keyboard on CBM Business models 
(32N, 8032), 

For the VIC and 64, if a key is enclosed in special brackets, 
fc >j, you should hold down the Commodore key while pressing 
the key inside the special brackets. (The Commodore key is 
the key in the lower left comer of the keyboard.) Again, if 
the key is preceded by a number, you should press the key 

The special character found in VIC and 64 listings 
represents the British pound symbol (£) key, found between 
the minus and CLR/HOME keys. 

Rarely, you'll see in a Commodore 64 program a solitary 
letter of the alphabet enclosed in braces. These characters 
can be entered by holding down the CTRL key while typing 
the letter in the braces. For example, {A} would indicate that 
you should press CTRL-A. 

cursor around the screen with the CRSR keys. Sometimes a 


control. That's why you see all the {LEFTVs, IHOMEJ's, 
and (BLU )'s in our programs. The only way the computer 
can tell the difference between direct and programmed cursor 
control is the quote mode. 

Once you press the quote (the double quote, SHDFT-2), 
you are in the quote mode. If you type something and then 
try to change it by moving the cursor left, you'll only get a 
bunch of re verse-video lines. These are the symbols for 
cursor left. The only editing key that isn't programmable is 
the DEL key; you can still use DEL to back up and edit the 
line. Once you type another quote, you are out of quote mode. 

You also go into quote mode when you INSerT spaces 
into a line. In any case, the easiest way to get out of quote 
mode is to just press RETURN. You'll then be out of quote 
mode and you can cursor up to the mistyped line and fix it. 

Use the following tables when entering special characters: 



) ToggfcTab 
Escape Key 


Apple II / Apple II Plus 

All programs are in Applesoft BASIC, unless.otherwise 

acter^n^l^edin^ln^cets^s^ich^s^DJbfor CTRL-D. Hold 
down CTRL while pressing the control key. You will not see 

TRS-80 Color Computer 

No special characters are used, other than lowercase. When 
you see letters printed in inverse video (white on black), 
press SHIFT-0 to enter the characters, and then press SHIFT-O 


words. For example, ENERGY (10 SPACES) MANAGE¬ 
MENT means that ten spaces should be left between the 
words ENERGY and MANAGEMENT. Do not type in the 
braces or the words 10 SPACES. Enter all programs with the 
ALPHA LOCK on (in the down position). Release the ALPHA 
LOCK to enter lowercase text. 

Timex TS-1000, Sinclair ZX-81 

sine?your machinefeatures single-keystroke entry of BASIC 
commands. You may want to switch to the FAST mode 

there will be less delay between lines, (if the blanking screen 
bothers you, switch to the SLOW mode.) , 
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MORE THAN JUST ANOTHER PRETTY FACE. 


Says who? Says ANSI. 

Specifically, subcommittee X3B8 of the American 
National Standards Institute (ANSI) says so. The fact 
is all Elephant™ floppies meet or exceed the specs 
required to meet or exceed all their standards. 

But just who is "subcommittee X3B8" to issue such 
pronouncements? 

They're a group of people representing a large, 
well-balanced cross section of disciplines—from 
academia, government agencies, and the computer 
industry. People from places like IBM, Hewlett-Packard, 
3M, Lawrence Livermore Labs, The U.S. Department 
of Defense, Honeywell and The Association of Com¬ 
puter Programmers and Analysts. In short, it's a bunch 
of high-caliber nitpickers whose mission, it seems, in 
order to make better disks for consumers, is also to 


make life miserable for everyone in the disk-making 
business. 

How? By gathering together periodically (often, 
one suspects, under the full moon) to concoct more 
and more rules to increase the quality of flexible 
disks. Their most recent rule book runs over 20 single¬ 
spaced pages—listing, and insisting upon—hundreds 
upon hundreds of standards a disk must meet in 
order to be blessed by ANSI. (And thereby be taken 
seriously by people who take disks seriously.) 

In fact, if you'd like a copy of this formidable docu¬ 
ment, for free, just let us know and we'll send you 
one. Because once you know what it takes to make 
an Elephant for ANSI... 

We think you’ll want us to make some Elephants 
for you. 


ELEPHANT. HEAVY DUTY DISKS. 

For a free poster-size portrait of our powerful pachyderm, please write us. 

Distributed Exclusively by Leading Edge Products, Inc., 225 Turnpike Street, Canton, Massachusetts 02021 
Call: toll-free 1-800-343-6833; or in Massachusetts call collect (617) 828-8150. Telex 951-624. 






















ss anyone selling releases from 
of support them and do let us know. 

Thank you! 


Our goal is to preserve classic video game magazines so that 
they are not lost permanently. 


People interested in helping out in any capacity, 
please visit us at www.retromags.com 


No profit is made from these scans, nor do we offer anything 
available from the publishers themselves. 



